如何从13列的.xlsx文件指定列提取下划线分隔的TextA至新列？

DevOps 小满

2026-5-26

嘿，这个需求挺常见的，我给你整理了几个高效的实现方案，你可以根据自己的Excel版本和操作习惯来选：

方案1：用Excel内置文本函数（最快捷的手动处理方式）

如果只是偶尔处理一次数据，直接用LEFT和FIND函数的组合就搞定了，不用复杂操作：

假设你的目标数据在A列，要把提取的TextA放到B列
在B1单元格（如果第一行是表头就从B2开始）输入公式：
```
=LEFT(A1,FIND("_",A1)-1)
```
按住B1单元格右下角的填充柄下拉，就能批量提取所有行的TextA了

如果担心有些单元格里没有下划线（避免出现错误值），可以加个IFERROR做容错处理：

=IFERROR(LEFT(A1,FIND("_",A1)-1),A1)

这样遇到没有下划线的单元格，会直接返回原内容，不会显示#VALUE!。

方案2：用Power Query（适合需要重复/批量处理的场景）

如果你的数据需要经常更新，或者后续还要做其他数据清洗，Power Query是更省心的选择——数据更新后只要刷新一下就行，不用重新操作：

选中你的数据区域（包括表头），点击菜单栏的「数据」→「从表格/区域」（如果Excel版本较低，可能叫「获取和转换数据」）
在Power Query编辑器里，点击「添加列」→「自定义列」
在弹出的对话框里输入公式（把[目标列名]改成你实际的列名，比如[数据列]）：
```
Text.BeforeDelimiter([目标列名], "_")
```
点击「确定」后，就能看到新列里已经提取好TextA了，最后点击「关闭并上载」，把处理后的数据导出到Excel新工作表里。

方案3：VBA宏（适合自动化重复操作）

如果你需要频繁处理类似格式的文件，写个简单的VBA宏可以一键完成，省得每次手动操作：

按下Alt+F11打开VBA编辑器
右键点击左侧的工作表名称，选择「插入」→「模块」

粘贴以下代码（记得根据你的实际情况修改工作表名和列号）：

Sub ExtractTextA()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的工作表名称，比如Sheet1
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 假设目标数据在A列，获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历（第1行是表头的话）
    For i = 2 To lastRow
        ' 判断单元格里是否有下划线
        If InStr(ws.Cells(i, "A").Value, "_") > 0 Then
            ' 提取第一个下划线前的内容到B列
            ws.Cells(i, "B").Value = Left(ws.Cells(i, "A").Value, InStr(ws.Cells(i, "A").Value, "_") - 1)
        Else
            ' 没有下划线的话返回原内容
            ws.Cells(i, "B").Value = ws.Cells(i, "A").Value
        End If
    Next i
End Sub

按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」选择ExtractTextA运行即可。

内容的提问来源于stack exchange，提问作者P Patel