如何使用VBA按指定特殊字符拆分Excel字符串并依次写入后续列

将A列字符串以指定的特殊字符集合为分隔符拆分，拆分结果按顺序写入同一行的后续列。

优化VBA方案 #

你原代码的问题在于多重循环的计数逻辑混乱，重复判断字符，既繁琐也无法输出正确结果。可以用「统一替换特殊字符+Split拆分」的极简逻辑实现，核心代码只有十行左右，执行效率也更高：

Sub SeparateString()
    Dim i As Long, k As Long, strTemp As String, arr
    Const Sonderz As String = "^!§$%&/()=?`*'_:;°,.-#+´ß}][{³²"
    Const TempSplit As String = "|" ' 临时分隔符，确保不会出现在原始数据中即可
    ' 遍历A列所有有数据的行
    For i = 1 To Worksheets("Tabelle1").Range("A1").End(xlDown).Row
        strTemp = Worksheets("Tabelle1").Range("A" & i).Value
        ' 将所有指定的特殊字符统一替换为临时分隔符
        For k = 1 To Len(Sonderz)
            strTemp = Replace(strTemp, Mid(Sonderz, k, 1), TempSplit)
        Next
        ' 拆分字符串为数组
        arr = Split(strTemp, TempSplit)
        ' 清空当前行B列起的旧数据，写入拆分结果
        Worksheets("Tabelle1").Range("B" & i).Resize(1, UBound(arr) + 1).Value = arr
    Next i
End Sub

使用说明 #

• 如果原始数据中包含|，可以自行修改TempSplit的取值为其他不会出现的特殊字符即可
• 如果需要过滤拆分结果中的空值，可在写入数组前增加一步空元素过滤逻辑

无代码实现方案（Power Query） #

如果不想编写VBA，也可以用Excel自带的Power Query功能实现：

• 选中A列数据，点击「数据」选项卡→「从表格/区域」导入Power Query编辑器
• 选中目标列，点击「转换」选项卡→「拆分列」→「按分隔符」
• 分隔符选择「自定义」，依次添加你需要的所有分隔符，选择拆分到列
• 操作完成后点击「关闭并上载」即可将结果导回原表格

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