如何用正则提取手机号码？

lingyuncelia

如上图示，有中文、标点符号、固话、手机号码，有时两个手机号码贴在一起， 肉眼分就容易，但如果数目多就累人了。 哪位大神可以赐教？

changxuegu

请测试：

1. Sub tel()
   
2.     arr = Range("a2:a" & Range("a65536").End(3).Row)
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     reg.Pattern = "\d{8,11}"
   
5.     reg.Global = True
   
6.     For i = 1 To UBound(arr, 1)
   
7.         s = arr(i, 1)
   
8.         If reg.test(s) Then
   
9.             Set mymatch = reg.Execute(s)
   
10.             m = 2
    
11.             For Each mat In mymatch
    
12.                 ActiveSheet.Cells(i + 1, m) = mat
    
13.                 m = m + 1
    
14.             Next
    
15.         End If
    
16.     Next i
    
17. End Sub

复制代码

xd3210

按照给出的示例，只需要匹配11位的手机号码，正则表达式可简化为reg.pattern="\d{11}"即能满足要求

tcdatongye

因手机号码是以1开头的，所以应该 1\d{10}比较合理

LMY123

只提取手机号码

loveshailyu

1. Function chazhao(rng As Range)
   
2. Dim regEx As Object
   
3.     Set regEx = CreateObject("VBScript.RegExp")
   
4.     With regEx
   
5.         .Global = True
   
6.         .Pattern = "\d{11}"
   
7.         If .test(rng) Then chazhao = .Execute(rng)(0)
   
8.     End With
   
9. End Function

复制代码

杭州小菜02

下载这个附件内容

乐乐2006201505

正则提取混杂电话号码。

ggmmlol

1. Sub tel() '手机号码提取
   
2.     Dim arr()
   
3.     UsedRange.Offset(, 1).Clear
   
4.     arr = Range("a1").CurrentRegion.Resize(, 1)
   
5.     Set reg = CreateObject("vbscript.regexp")
   
6.     reg.Global = True
   
7.     reg.Pattern = "(?:^|\D+)(1(3\d|4[57]|5[0-35-9]|7[0136-8]|8\d)\d{8})(?=\D+|$)" '精确验证：位数不符、号段不符（按2017年12月手机号段）
   
8.     For i = 2 To UBound(arr)
   
9.         Set mas = reg.Execute(arr(i, 1))
   
10.         For j = 1 To mas.Count
    
11.             Cells(i, j + 1) = mas(j - 1).submatches(0)
    
12.         Next
    
13.     Next
    
14.     [b1] = "修改后"
    
15. End Sub
    

复制代码

ggmmlol

如果使用自定义函数，则如下：

1. Function CellNum$(str) '自定义函数：手机号码提取
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.     reg.Global = True
   
4.     reg.Pattern = "(?:^|\D+)(1(3\d|4[57]|5[0-35-9]|7[0136-8]|8\d)\d{8})(?=(\D+|$))" '精确验证：位数不符、号段不符（按2017年12月手机号段）
   
5.     Set mas = reg.Execute(str)
   
6.     For j = 1 To mas.Count
   
7.         CellNum = CellNum & ";" & mas(j - 1).submatches(0)
   
8.     Next
   
9.     CellNum = Mid(CellNum, 2)
   
10. End Function
    

复制代码