[已解决]用VBA正则把一句英文拆分成几个单词

laoau138

用VBA正则把一句英文拆分成几个单词

第一次发问正则，高手快来解答

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-15 15:55

1. Sub aaa()
   
2. Dim arr, i&, reg As Object, match, matches, c&
   
3. arr = Range([a1], [a65536].End(3))
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. With reg
   
6.   .Global = True
   
7.   .Pattern = "[a-zA-Z]+"
   
8.   For i = 1 To UBound(arr)
   
9.     c = 1
   
10.     Set matches = reg.Execute(arr(i, 1))
    
11.     For Each match In matches
    
12.       c = c + 1
    
13.       Cells(i, c) = match
    
14.     Next
    
15.   Next i
    
16. End With
    
17. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, reg As Object, match, matches, c&
   
3. arr = Range([a1], [a65536].End(3))
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. With reg
   
6.   .Global = True
   
7.   .Pattern = "[a-zA-Z]+"
   
8.   For i = 1 To UBound(arr)
   
9.     c = 1
   
10.     Set matches = reg.Execute(arr(i, 1))
    
11.     For Each match In matches
    
12.       c = c + 1
    
13.       Cells(i, c) = match
    
14.     Next
    
15.   Next i
    
16. End With
    
17. End Sub

复制代码

小花鹿

Sub test1()
Dim s, s1, tm, reg, hc, tm1, i&, r&
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\w+\b"
reg.Global = True
s = Sheet1.[a3]
Set s = reg.Execute(s)
For Each s1 In s
    MsgBox s1
Next s1
End Sub