正则表达式+数组提取数据

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.25   正则匹配
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     With reg
   
4.         .Pattern = "([a-zA-Z]+[0-9]+)"
   
5.         .Global = False ' 设置为False，只匹配第一个匹配项
   
6.         .MultiLine = False
   
7.         .IgnoreCase = False
   
8.     End With
   
9.     r = Cells(Rows.Count, 1).End(3).Row
   
10.     For i = 2 To r
    
11.         s = Cells(i, 1).Value
    
12.         Set mh = reg.Execute(s)
    
13.         If reg.test(s) Then
    
14.             Cells(i, 3) = mh(0).Value
    
15.         Else
    
16.             Cells(i, 3) = ""
    
17.         End If
    
18.     Next
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码