[已解决]如何从字符串中获取特定的子字符串

datongye

1. Sub ZZTQ()
   
2.    With CreateObject("VBScript.RegExp")
   
3.         .Global = True
   
4.         .Pattern = "[一-龡]+(?=】)"
   
5.         xx = Cells(1, 1)
   
6.         Set mt = .Execute(xx)
   
7.         For i = 0 To mt.Count - 1
   
8.        Cells(1, i + 5) = mt(i)
   
9.         Next i
   
10.     End With
    
11. End Sub

复制代码

不用函数，直接求值比较好点。

liuym

下载学习学习了

laoau138

fjmxwrs 发表于 2016-11-9 13:38
用函数可以用正则吗?

VBA蓝底单元格输入数字全排列   再容错

http://www.excelpx.com/thread-427027-1-1.html