Excel如何批量使用Text to Columns功能一次性拆分多列单元格

你的拆分需求是按;作为分隔符，可直接用新版本Excel自带的文本函数实现批量一次性拆分：

• 选中Part1列第一个输出单元格，输入以下公式后按回车即可自动生成所有拆分结果：

=DROP(TOCOL(TEXTSPLIT(TEXTJOIN(";",TRUE,A2:D5),,";"),1),0)

注：公式中的A2:D5可替换为你实际需要拆分的ColA到ColD的所有数据区域，分隔符;也可以根据实际拆分规则修改。

如果你使用的是旧版本Excel没有上述函数，可以用宏实现，操作步骤如下：

1. 打开目标Excel文件，按下Alt + F11调出VBA编辑器
2. 点击顶部菜单栏「插入」>「模块」，在弹出的空白代码编辑窗口中粘贴以下代码：

Sub 批量按分隔符拆分()
    Dim selectRng As Range, cell As Range
    Dim splitArr As Variant
    Dim outputRow As Long
    ' 弹出选择框让用户选中需要拆分的区域
    Set selectRng = Application.InputBox("请选中ColA到ColD需要拆分的所有数据单元格", "区域选择", Type:=8)
    outputRow = 2 ' 拆分结果的起始输出行，可根据你的表格结构自行修改
    For Each cell In selectRng
        If cell.Value <> "" Then
            splitArr = Split(cell.Value, ";") ' 分隔符可根据实际需求修改
            ' 这里默认Part1是F列、Part2是G列，可修改列字母适配你的表格
            Cells(outputRow, "F").Value = splitArr(0)
            If UBound(splitArr) >= 1 Then Cells(outputRow, "G").Value = splitArr(1)
            outputRow = outputRow + 1
        End If
    Next cell
    MsgBox "所有单元格拆分完成"
End Sub

3. 按下F5运行代码，在弹出的选择框中框选你需要拆分的所有ColA到ColD的数据单元格，点击确定即可完成批量拆分。

内容的提问来源于stack exchange，提问作者John Arc