如何用正则提取手机号码

lingyuncelia1

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

龙城飞将III

这个很规律啊，.pattern="\d{11}"

lingyuncelia1

龙城飞将III 发表于 2016-4-29 22:40
这个很规律啊，.pattern="\d{11}"

有时 是固话与手机贴在一起，中间连个空格都没有的，比如8228123218928509694

today0427

那就要求登记的人长点心，最起码点个空格什么的，要不然懒死怎么办？

datongye

Set reg = CreateObject("vbscript.regexp")
With reg
  .Global = True
  .Pattern = "1\d{10}"
End With
With Sheets(1)
   myrow = .Cells(65535, 1).End(xlUp).Row
   .Cells(2, 5).Resize(myrow, 2).ClearContents
  For i = 2 To myrow
   ss = .Cells(i, 1)
   Set myval = reg.Execute(ss)
   qq = 0
   For Each mm In myval
     qq = qq + 1
     .Cells(i, qq + 4) = mm
   Next
  Next i
End With

lingyuncelia1

datongye 发表于 2016-5-1 19:17
Set reg = CreateObject("vbscript.regexp")
With reg
  .Global = True

小灵通:8302143918928509692，如果是这种呢？肉眼看得出是：18928509692，但reg.Pattern = "1\d{10}"，会变成：
14391892850

ykqrs

lingyuncelia1 发表于 2016-5-2 15:59
小灵通:8302143918928509692，如果是这种呢？肉眼看得出是：18928509692，但reg.Pattern = "1\d{10}"，会 ...

.Pattern = "1\d{10}(?=1|,|，|\s|、|/|$)"

lingyuncelia1

ykqrs 发表于 2016-6-13 12:13
.Pattern = "1\d{10}(?=1|,|，|\s|、|/|$)"

过期新闻啦