提取excel表中两列数据中的手机号并到一列但要踢出座机

yxz5473

如何提取excel表中两列数据中的手机号并到一列但要踢出座机

3190496160

Sub 按钮1_Click()
Dim ar As Variant
Dim br()
ar = Sheet1.[a1].CurrentRegion
ReDim br(1 To UBound(ar) * 20, 1 To 1)
For i = 2 To UBound(ar)
    sl = Len(Trim(ar(i, 1)))
    If sl = 11 Then
        n = n + 1
        br(n, 1) = ar(i, 1)
    End If
    If Trim(ar(i, 2)) <> "" Then
        ar(i, 2) = Replace(ar(i, 2), " ", "")
        If InStr(ar(i, 2), ";") = 0 Then
            sl = Val(Left(Trim(ar(i, 2)), 1))
            If sl = 1 Then
                n = n + 1
                br(n, 1) = ar(i, 2)
            End If
        ElseIf InStr(ar(i, 2), ";") > 0 Then
            rr = Split(ar(i, 2), ";")
            For s = 0 To UBound(rr)
                sl = Val(Left(Trim(rr(s)), 1))
                If sl = 1 Then
                    n = n + 1
                    br(n, 1) = rr(s)
                End If
            Next s
        End If
    End If
Next i
With Sheet2
    .[a1].CurrentRegion = Empty
    .[a1].Resize(n, 1) = br
End With
MsgBox "ok!"
End Sub

3190496160

本来问题很简单，但是由于B列有大量空格，影响代码的片段，只能采取一个折中的办法来处理，代码仅供参考

清风竹-

请看附件。

yxz5473

3190496160 发表于 2020-10-7 17:01
Sub 按钮1_Click()
Dim ar As Variant
Dim br()

感谢大神 3190496160的帮助！

yxz5473

清风竹- 发表于 2020-10-7 17:03
请看附件。

我试了，非常好用，感谢您人无私帮助，谢谢！

huanglong355

这个根本就不需要用VBA，先对B列分列，然后A，B全部排列到一列里面，然后用Find函数找“-”，找到后删除掉即可。