提取单元格内的相关内容

高冷cool

1. Sub day10133() '可以运行之最终版
   
2.     Set a = ActiveSheet
   
3.     Set regx = CreateObject("vbscript.regexp")
   
4.     x = a.UsedRange.Rows.Count
   
5.     regx.Global = True
   
6.     regx.Pattern = "([A-Z]+\d+\b)|(\d+(?=\*))|(\*\d+)" '([A-Z]+\d+\b)|(\d+\*\d+)
   
7.     For i = 7 To x
   
8.         Set m = regx.Execute(a.Cells(i, 4))
   
9.         k = 1
   
10.         For Each mm In m
    
11.             If k = 1 Then
    
12.                 a.Cells(i, "M") = mm.submatches(0)
    
13.                 Debug.Print mm.submatches(0)
    
14.             ElseIf k = 2 Then
    
15.                 a.Cells(i, "n") = mm.submatches(1)
    
16.                 Debug.Print mm.submatches(1)
    
17.             ElseIf k = 3 Then
    
18.                 a.Cells(i, "O") = Replace(mm.submatches(2), "*", "")
    
19.                 Debug.Print mm.submatches(2)
    
20.             End If
    
21.             k = k + 1
    
22.         Next
    
23.     Next
    
24. End Sub
    

复制代码

运行代码