快速提取手机号码

蓝无领 · 发表于 2013-2-22 08:20

工作簿1.rar (3.37 KB, 下载次数: 184)
如何快速用VBA挑选出手机号码呢？谢谢

chenyun1234 · 发表于 2013-2-22 08:47

=MID(A1,FIND(1,A1,1),11)

利用这两函数，就可以解决了，期待你的好运！哈哈

蓝无领 · 发表于 2013-2-22 08:49

chenyun1234 发表于 2013-2-22 08:47
=MID(A1,FIND(1,A1,1),11)

利用这两函数，就可以解决了，期待你的好运！哈哈

高手啊，多谢您了

理科生在珠海 · 发表于 2013-2-22 08:51

http://club.excelhome.net/thread-689119-2-1.html

Sub findnumber()
Dim i&, k&, ar, arr
With Sheets("sheet1")
      ar = .Range("a2", .[a65536].End(3))
      ReDim arr(1 To UBound(ar), 1 To 1)
      For i = 1 To UBound(ar)
         k = k + 1
         For j = 1 To Len(ar(i, 1))
            If IsNumeric(Mid(ar(i, 1), j, 1)) Then
                  arr(k, 1) = arr(k, 1) & Mid(ar(i, 1), j, 1)
            End If
         Next
      Next
      .[b2].Resize(k) = arr
End With
End Sub

chenyun1234 · 发表于 2013-2-22 08:55

别，我就是小虾米，你这是有规律的！
1、手机号码是以【1】开头的
2、手机号码是【11】位数
3、用【FIND函数】，是查找以【1】开头的，但是在手机号码前已经出现了【1】，就不能用【FIND函数】了
4、用【MID函数】,是以【1】开头，截取【11位数】，这样你的结果就有了

蓝无领 · 发表于 2013-2-22 08:55

理科生在珠海发表于 2013-2-22 08:51
Sub findnumber()
Dim i&, k&, ar, arr
With Sheets("sheet1")

快速提取手机号码VBA.rar (9.1 KB, 下载次数: 59)
多谢大侠的回复，可是，有个小问题，固定电话号码是否可不出来？

另外，如果手机号码录入的是013620153327 和固定电话号码（例如：02134012208）如何区别开？

wj2368 · 发表于 2013-2-22 08:59

........................

wj2368 · 发表于 2013-2-22 09:04

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

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

固定电话号码不出来

理科生在珠海 · 发表于 2013-2-22 09:07

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

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

就是数字是一1开头，后面的11位了？是么？

蓝无领 · 发表于 2013-2-22 09:12

wj2368 发表于 2013-2-22 09:04
固定电话号码不出来

提取手机号码02（过滤掉固定电话）.rar (9 KB, 下载次数: 84)
大侠，固定电话号码还是会出来，详见附件。谢谢

		自动登录	找回密码
密码			免费注册

[讨论] 快速提取手机号码

最新热点 /1