快速提取手机号码

理科生在珠海

蓝无领 发表于 2013-2-22 08:55
多谢大侠的回复，可是，有个小问题，固定电话号码是否可不出来？

另外，如果手机号码录入的是013620 ...

http://club.excelhome.net/thread-804413-3-1.html

稍微改改：
Option Explicit
Function z(ByVal s As String) As String
    With CreateObject("VBSCRIPT.REGEXP")
        .Pattern = "1\d{10}"
        .Global = True
        If .test(s) Then z = .Execute(s).Item(0)
    End With
End Function

蓝无领

理科生在珠海 发表于 2013-2-22 09:07
就是数字是一1开头，后面的11位了？是么？

是的，固定电话号码是0+非“1”开头的数字串，而手机是0+“1”开头的数字串

蓝无领

理科生在珠海 发表于 2013-2-22 09:14
稍微改改：
Option Explicit
Function z(ByVal s As String) As String

这段代码如何运行？谢谢

wj2368

蓝无领 发表于 2013-2-22 09:12
大侠，固定电话号码还是会出来，详见附件。谢谢

。。。。。。。。。。

ccwan

手机号码前加0是做什么？要提取这个0 吗？

ccwan

只限你上传附件，提取手机号

1. Sub cc()
   
2.     Dim i%, arr
   
3.     arr = Range("a1:b" & [a65536].End(3).Row)
   
4.     With CreateObject("VBSCRIPT.REGEXP")
   
5.         .Global = True
   
6.         .Pattern = "1[358]\d{9}"
   
7.         For i = 1 To UBound(arr)
   
8.             Set Match = .Execute(arr(i, 1))
   
9.             arr(i, 2) = Match(0).Value
   
10.         Next
    
11.     End With
    
12.     [b1].Resize(UBound(arr)) = Application.Index(arr, , 2)
    
13. End Sub
    

复制代码

蓝无领

ccwan 发表于 2013-2-22 10:03
只限你上传附件，提取手机号

您好，代码显示错误，arr(i, 2) = Match(0).Value 这个是什么问题啊？

蓝无领

wj2368 发表于 2013-2-22 10:22
。。。。。。。。。。

大侠，非常感谢您的帮助

蓝无领

蓝无领 发表于 2013-2-22 11:03
大侠，非常感谢您的帮助

大侠，请问能否扩展为将固定电话号码也提取出来，如果固定电话号码或手机号位数不对的，显示为“无效电话号码或手机号？
多谢您的指教！
查找有效的电话号码（固定电话号码或手机号码）.rar (335.33 KB, 下载次数: 18)

2013-2-22 11:11 上传

点击文件名下载附件

wj2368

蓝无领 发表于 2013-2-22 11:12
大侠，请问能否扩展为将固定电话号码也提取出来，如果固定电话号码或手机号位数不对的，显示为“无效电话 ...

。。。。。。。。。。。。。。