excel中如果批量处理这些电话号码

发布网友 发布时间：2022-04-23 09:58

我来回答

共3个回答

热心网友 时间：2023-10-10 13:08

按照下面就好

追问能不能把工作思路讲解一下？
1-2步怎么操作？

追答数据分列，用；

热心网友 时间：2023-10-10 13:09

这用分列是没法实现目的的，别倒别人了。

用下面的VBA代码吧。

Sub KeepMobiles()
      Col=3 '联系方式所在的实际列号，请自行修改即可
     ActiveSheet.UsedRange.Select
     StartRow = ActiveSheet.UsedRange.Row
     RowNum = ActiveSheet.UsedRange.Rows.Count
     StartCol = ActiveSheet.UsedRange.Column
     ColNum = ActiveSheet.UsedRange.Columns.Count
     For ri = StartRow To StartRow + RowNum - 1
        For ci = StartCol To StartCol + ColNum - 1
           Ci=Col
           On Error Resume Next
           Value = ActiveSheet.Cells(ri, ci)
           If Err.Number Then Value = ActiveSheet.Cells(ri, ci).Value
           Value = Split(Value & ";", ";")
            n = UBound(Value)
            TmpV = ""
            For vi = 0 To n
             On Error Resume Next
             If Trim(Value(vi)) <> "" Then
               If Left(Value(vi), 1) = 1 Then TmpV = TmpV & Value(vi) & ";"
             End If
            Next
            If Right(TmpV, 1) = ";" Then TmpV = Left(TmpV, Len(TmpV) - 1)
            On Error Resume Next
            ActiveSheet.Cells(ri, ci) = TmpV
            If Err.Number Then ActiveSheet.Cells(ri, ci).Value = TmpV
            DoEvents
            exit for
        Next
     Next
     MsgBox "处理完毕！" & vbCrLf & "更多批量处理功能，请参见《文件批量处理百宝箱V10.0》", vbInformation + vbOKOnly, "消息"
     
    
End Sub

热心网友 时间：2023-10-10 13:09

选择数据列，在“数据”选项下的“分列”中，以“;”为分隔符，分列，即可。
然后对分列后数据列中带0开头的区号或8位数的号码，识别并删除。