咨询Excel自动拆分混合联系方式列并导出为CSV的实现方法

一、Excel函数提取方案（无需编程） #

适用于Excel 365/2021及以上版本 #

利用FILTERXML和TEXTAFTER函数精准筛选指定前缀的联系方式：

• 提取移动电话（对应m:前缀）：
  在空白列（如D2）输入公式后下拉填充：

  =TEXTAFTER(FILTERXML("<t><s>"&SUBSTITUTE($C2,";","</s><s>")&"</s></t>","//s[starts-with(.,'m:')]"),"m:")
  

• 提取家庭电话（对应h:前缀）：
  在空白列（如E2）输入公式后下拉填充：

  =TEXTAFTER(FILTERXML("<t><s>"&SUBSTITUTE($C2,";","</s><s>")&"</s></t>","//s[starts-with(.,'h:')]"),"h:")
  

  原理：先将C列的分号分隔内容转换为XML节点，筛选出指定前缀的节点后，去除前缀得到纯号码。

兼容旧版Excel（2019及以前） #

用SEARCH+MID组合实现提取：

• 移动电话：

  =MID($C2,SEARCH("m:",$C2)+2,IFERROR(SEARCH(";",$C2,SEARCH("m:",$C2))-SEARCH("m:",$C2)-2,LEN($C2)-SEARCH("m:",$C2)-1))
  

• 家庭电话：将公式中的m:替换为h:即可。

整理完成后，选中A（参考编号）、B（人员信息）、D（移动电话）、E（家庭电话）列，即可进行后续导出操作。

二、VBA宏批量处理方案（高效自动化） #

适合数据量较大的场景，一键完成提取并生成新工作表：

Sub ExtractContacts()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long
    Dim contactArr As Variant, contact As Variant
    Dim mobile As String, homePhone As String
    
    '替换为你的源工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    '新建结果工作表
    Set wsTarget = ThisWorkbook.Worksheets.Add
    wsTarget.Name = "提取结果"
    
    '写入表头
    wsTarget.Range("A1:D1") = Array("参考编号", "人员信息", "移动电话", "家庭电话")
    
    '获取源表最后一行数据
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    '遍历每一行处理
    For i = 2 To lastRow
        mobile = ""
        homePhone = ""
        '拆分C列的联系方式
        contactArr = Split(wsSource.Cells(i, "C").Value, ";")
        
        '逐个识别联系方式类型
        For Each contact In contactArr
            contact = Trim(contact)
            If Left(contact, 2) = "m:" Then
                mobile = Mid(contact, 3)
            ElseIf Left(contact, 2) = "h:" Then
                homePhone = Mid(contact, 3)
            End If
        Next contact
        
        '写入结果表
        wsTarget.Cells(i, "A").Value = wsSource.Cells(i, "A").Value
        wsTarget.Cells(i, "B").Value = wsSource.Cells(i, "B").Value
        wsTarget.Cells(i, "C").Value = mobile
        wsTarget.Cells(i, "D").Value = homePhone
    Next i
    
    '自动调整列宽
    wsTarget.Columns.AutoFit
    MsgBox "提取完成！"
End Sub

操作步骤：

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧工作簿名称→「插入」→「模块」
3. 粘贴上述代码，修改Sheet1为你的源工作表实际名称
4. 按F5运行宏，自动生成名为「提取结果」的工作表

三、导出为CSV文件 #

无论用哪种方法得到整理后的表格，导出步骤一致：

• 切换到整理好的工作表
• 点击「文件」→「另存为」
• 在「保存类型」中选择「CSV(逗号分隔)(*.csv)」
• 选择保存路径后点击「保存」即可（CSV仅保存当前工作表内容）

内容的提问来源于stack exchange，提问作者Kevin Merritt