[已解决]VBA搜索单元格中的电话号码并同行插入新建

nixliu

搜索1xxxxxxxxxx（11位数字）
从原单元格内删除 并  新建复制进去， 如果能对纯数字的单元格无效那是最好


十分感谢

之前没说清十分抱歉

最佳答案

月排行榜 / 总排行榜

爱疯

2016-6-3 16:05

(, 下载次数: 6)

上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

演示说明2.rar (18.5 KB, 下载次数: 6)

2016-6-3 09:47 上传

点击文件名下载附件

如果数据的实际位置不是这样，则需修改



Dim reg As Object
Sub test()
    Dim A, i%, temp$

    Application.DisplayAlerts = False
    A = Range("c2").CurrentRegion
    Set reg = CreateObject("VBScript.RegExp")

    For i = 2 To UBound(A)
        temp = A(i, 1) & " " & A(i, 2)
        A(i, 1) = getAddress(A(i, 1))
        A(i, 2) = getTel(temp)
    Next i

    With Range("c21")
        .Resize(UBound(A), UBound(A, 2)) = A
        .Offset(1, 1).Resize(UBound(A)).TextToColumns Space:=True
    End With

End Sub

Function getTel(str) As String
    Dim matchs As Object, match As Object, temp As String
    With reg
        .Global = True
        .Pattern = "1\d{10}"
        Set matchs = .Execute(str)
        For Each match In matchs
            temp = temp & " " & match.Value
        Next
        getTel = Mid(temp, 2)
    End With
End Function

Function getAddress(str) As String
    With reg
        .Global = True
        .Pattern = "1\d{10}"
        getAddress = .Replace(str, "")
    End With
End Function

nixliu

爱疯 发表于 2016-6-3 09:50
如果数据的实际位置不是这样，则需修改

谢谢亲 能不能加上对存数字无效呢···· 纯电话也右移一格

爱疯

看不懂
上对存数字无效，是什么意思？
纯电话也右移一格，是什么意思？

nixliu

爱疯 发表于 2016-6-3 11:03
看不懂
上对存数字无效，是什么意思？
纯电话也右移一格，是什么意思？

啊啊 少打了字··
意思是能不能  ， 改成  对单元格内只有电话就不向右移动， 现有的是对纯数字也会进行加工
因为数据量巨大 不确定是那一列 所以想逐列运行 所以要对纯数字无效

实际现在就是一个个单元格里面是混着地址电话 就把电话提出来  然后再手动整理

爱疯

看不懂
建议还是用举例的方式，将各种情况及其结果，列举出来。

nixliu

爱疯 发表于 2016-6-3 11:21
看不懂
建议还是用举例的方式，将各种情况及其结果，列举出来。

谢谢超级版主

爱疯

第2次上传的附件.rar (6.44 KB, 下载次数: 3)

2016-6-3 11:50 上传

点击文件名下载附件


下班了，先放着
好让有空的朋友，来看看


另外，运行后，
电话列里有姓名，姓名列有电话
真需要这样？？

nixliu

爱疯 发表于 2016-6-3 11:52
下班了，先放着
好让有空的朋友，来看看

是的 没办法··· 量大  把电话单独出来就好了 剩下人工来···

nixliu

爱疯 发表于 2016-6-3 11:52
下班了，先放着
好让有空的朋友，来看看

大大有空么····
在主楼更新了 这样貌似简单明确