请问如何把字符中的电话号码，名称，地址给独立提取出来呢？

jk357 · 发表于 2017-6-30 00:12

远豪18328516519顺行

坤圆时代15982742988文昌路210号

远航13880816263顺行物流背后

南池66903407（顺行）

扬帆远航15208236807/13980891954顺行前面

南池66903407/13541168469（顺行）

南池66903407（顺行）

李杰66891110铁佛

南池66903407（顺行）

李杰66891110铁佛

南池66903407/13541168469（顺行）

远航13880816263（顺行）

森林货运13880884078

绍成85016618顺行

0

请问如何把名称、电话号码、地址分别提取出来呢？
如：
姓名：南池
电话：66903407/13541168469
地址：（顺行）

非常感谢！！！

小花鹿 · 发表于 2017-6-30 08:53

(\D+)([\d/]+)(\D+)......................................................................................

paciguard · 发表于 2017-6-30 09:01

正则表达式吗？

zax010 · 发表于 2017-6-30 11:55

Sub zz()
For i = 1 To [a65536].End(3).Row
      s = Cells(i, 1)
      For x = 1 To Len(s)
         If IsNumeric(Mid(s, x, 1)) = True Then a = x - 1: Exit For
      Next
      For x = a + 1 To Len(s)
         If Mid(s, x, 1) <> "/" Then If IsNumeric(Mid(s, x, 1)) = False Then b = x - 1: Exit For
      Next
      If b > 0 Then
         Cells(i, 2) = Mid(s, 1, a): Cells(i, 3) = Mid(s, a + 1, b - a): Cells(i, 4) = Mid(s, b + 1)
      Else
         Cells(i, 2) = Mid(s, 1, a): Cells(i, 3) = Mid(s, a + 1)
      End If
      a = 0: b = 0
Next
End Sub

zax010 · 发表于 2017-6-30 11:57

Book2.rar (7.5 KB, 下载次数: 44)

a68508122 · 发表于 2017-6-30 13:09

。。。。。。。。。。

jiminyanyan · 发表于 2017-6-30 20:37

做个记号，可用正则表达式实现……。

huahua333 · 发表于 2018-3-30 20:23

有工具应该可以一键提取的

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

[求助] 请问如何把字符中的电话号码，名称，地址给独立提取出来呢？