如何從字符串中查找數字？我需要從a中找到數字string。如何從stringVBA Excel中查找數字？
3 回答
梵蒂岡之花
TA貢獻1900條經驗 獲得超5個贊
構造正則表達式來解析。雖然語法可能需要一段時間才能掌握這種方法非常有效，并且非常靈活，可以處理更復雜的字符串提取/替換
Sub Tester()
MsgBox CleanString("3d1fgd4g1dg5d9gdg")End SubFunction CleanString(strIn As String) As String
Dim objRegex Set objRegex = CreateObject("vbscript.regexp")
With objRegex .Global = True
.Pattern = "[^\d]+"
CleanString = .Replace(strIn, vbNullString)
End WithEnd Function
有只小跳蛙
TA貢獻1824條經驗 獲得超8個贊
擴展brettdj的答案，以便將不相交的嵌入數字解析為單獨的數字：
Sub TestNumList()
Dim NumList As Variant 'Array
NumList = GetNums("34d1fgd43g1 dg5d999gdg2076")
Dim i As Integer
For i = LBound(NumList) To UBound(NumList)
MsgBox i + 1 & ": " & NumList(i)
Next iEnd SubFunction GetNums(ByVal strIn As String) As Variant 'Array of numeric strings
Dim RegExpObj As Object
Dim NumStr As String
Set RegExpObj = CreateObject("vbscript.regexp")
With RegExpObj .Global = True
.Pattern = "[^\d]+"
NumStr = .Replace(strIn, " ")
End With
GetNums = Split(Trim(NumStr), " ")End Function添加回答
舉報
0/150
提交
取消