如何使用excel的VBA正则表达式截取字符串的iP
比如我有字符串adsad153.9.8.222 、8d87do-192.168.0.1 、192.168.2.3-SJDJD
我需要有个函数返回其中的IP地址 谢谢！
第1个回答 推荐于2016-11-03
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本回答被提问者和网友采纳
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本回答被提问者和网友采纳
第2个回答 2015-03-05
\d+\.\d+\.\d+\.\d+
相似回答
