如何在VBA中按":"和","分隔符拆分文本填入后续对应列

核心思路是先将多种分隔符统一为同一种，再调用拆分逻辑，或者直接用正则匹配提取内容，两种可落地的方案如下：

方案1：替换统一分隔符后拆分（无额外依赖，兼容性最高） #

该方案不需要引用额外库，所有版本Excel都可直接运行，代码如下：

Sub 多分隔符拆分单元格()
    Dim rng As Range
    Dim cell As Range
    Dim splitArr As Variant
    Dim i As Integer
    
    ' 仅处理当前选中的单元格区域
    Set rng = Selection
    
    For Each cell In rng
        ' 跳过空单元格
        If cell.Value <> "" Then
            ' 把所有:替换为, 统一为单种分隔符后拆分
            splitArr = Split(Replace(cell.Value, ":", ","), ",")
            ' 拆分结果依次写入右侧对应列
            For i = LBound(splitArr) To UBound(splitArr)
                ' 跳过连续分隔符产生的空值，同时去除前后空格
                If Trim(splitArr(i)) <> "" Then
                    cell.Offset(0, i + 1).Value = Trim(splitArr(i))
                End If
            Next i
        End If
    Next cell
End Sub

使用说明：

• 选中需要拆分的单元格列
• 按Alt+F11打开VBA编辑器，插入模块粘贴上述代码
• 按F5运行即可，拆分后第一个值自动填入右侧第一列，符合你姓名仅取Amanda的需求

方案2：正则表达式拆分（扩展性强，适合复杂分隔符场景） #

如果后续需要新增更多分隔符，推荐用正则方案，修改规则即可不用调整核心逻辑，代码如下：

Sub 正则多分隔符拆分()
    Dim regex As Object
    Dim rng As Range
    Dim cell As Range
    Dim matchArr As Object
    Dim i As Integer
    
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    ' 分隔符规则写在[]内，新增分隔符直接往里加即可
    regex.Pattern = "[^:,]+"
    
    Set rng = Selection
    For Each cell In rng
        If cell.Value <> "" Then
            Set matchArr = regex.Execute(cell.Value)
            For i = 0 To matchArr.Count - 1
                cell.Offset(0, i + 1).Value = Trim(matchArr(i))
            Next i
        End If
    Next cell
    Set regex = Nothing
End Sub

注意事项：

• 两种方案默认保留原始单元格内容，拆分结果写入右侧列
• 如需覆盖原始内容，把代码中Offset(0, i + 1)的i + 1修改为i即可

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