m = Cells(1, 1) '为字符所在单元格
a = InStr(m, ".")
For i = a - 1 To 1 Step -1
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
m = Right(m, Len(m) - c)
b = InStrRev(m, ".")
For i = b + 1 To Len(m)
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
If c = Len(m) Then
Else
m = Left(m, c - 1)
End If
MsgBox m
\d+\.\d+\.\d+\.\d+
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024