[VBA]提取指定字符串后的數字--代碼來源Excelhome

問題：提取check之后的數字

來源：Excelhome

 

Sub 提取數字()
Dim regexp As New regexp
With regexp
.Pattern = "check\s*(\d+)"
End With
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a1:b" & r)
For i = 1 To UBound(arr)
Set mh = regexp.Execute(arr(i, 1))
arr(i, 2) = mh(0).SubMatches(0)
Next
.Range("a1:b" & r) = arr
End With
End Sub