Question

Excel里的VBA怎么使用正则表达式来获取多个电话号码？

如题，如何使用正则表达式获取以下3个号码分列存放？
张三 13212345678;张三 1387654321;李四 13512345678

下面的代码需要如何修改？这个代码获取的号码都综合到一个单元格里去了

Dim regEx
Set regEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
regEx.Global = True '设置全局可用
regEx.Pattern = "1[\d]{10}|01[\d]{10}" '正则搜索样式
Set fh = regEx.Execute(Sheets(1).Cells(j, 75)) '符合(匹配)正则的对象 2007-11-25
For Each showfh In fh '遍历匹配集合。
fhstr = fhstr & ch & showfh 'fhstr是符合(匹配)的正则单字,这是一个存字罐,一字一字加成串
Next
Sheets(2).Cells(i + 1, 94) = fhstr
fhstr = ""

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

Dim regEx
Dim K As Long
Set regEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
regEx.Global = True '设置全局可用
regEx.Pattern = "1[\d]{10}|01[\d]{10}" '正则搜索样式
Set fh = regEx.Execute(Sheets(1).Cells(j, 75)) '符合(匹配)正则的对象 2007-11-25
For Each showfh In fh '遍历匹配集合。
    Sheets(2).Cells(i + K + 1, 94) = fhstr
    K = K + 1
Next

Answer 2

你可以按分号分割字符串后再使用正则获取电话号码。

追问

需要如何写？？？