我完全懂你的困扰——直接用TextToColumns拆分不仅会保留整段的文本描述（比如"Sub-Total - USD 171.43"），还会因为部分订单没有Coupon字段导致列错位。下面是针对你的需求定制的解决方案，能精准提取每个字段的值并对应到固定列，不管订单有没有Coupon项。

完整VBA代码 #

Sub SplitOrderDetails()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim orderItems As Variant
    Dim itemParts As Variant
    Dim fieldMap As Object
    
    ' 绑定到你的"Orders"工作表
    Set ws = ThisWorkbook.Worksheets("Orders")
    ' 获取A列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 定义字段与目标列的映射：字段名 -> 对应列号（B=2，C=3...）
    Set fieldMap = CreateObject("Scripting.Dictionary")
    fieldMap("Sub-Total") = 2
    fieldMap("VAT") = 3
    fieldMap("Shipping") = 4
    fieldMap("Coupon") = 5
    fieldMap("Total") = 6
    
    ' 添加表头（如果你的表还没有表头的话）
    ws.Cells(1, 2).Value = "Sub-Total"
    ws.Cells(1, 3).Value = "VAT"
    ws.Cells(1, 4).Value = "Shipping"
    ws.Cells(1, 5).Value = "Coupon"
    ws.Cells(1, 6).Value = "Total"
    
    ' 遍历每一行订单数据（从第2行开始，若A列第1行是数据则改成i=1）
    For i = 2 To lastRow
        ' 拆分单元格内容：先去掉换行符，再按分号分割成数组
        orderItems = Split(Replace(ws.Cells(i, "A").Value, vbLf, ""), ";")
        
        ' 先清空当前行的目标列，避免残留旧数据
        For j = 2 To 6
            ws.Cells(i, j).Value = ""
        Next j
        
        ' 逐个处理每个订单条目
        For Each item In orderItems
            ' 去掉条目前后空格，再按" - "（空格-空格）分割成字段名和值
            itemParts = Split(Trim(item), " - ")
            If UBound(itemParts) >= 1 Then
                Dim fieldName As String
                Dim fieldValue As String
                
                ' 特殊处理Coupon字段（比如"Coupon (WELCOME)"统一识别为"Coupon"）
                If Left(itemParts(0), 6) = "Coupon" Then
                    fieldName = "Coupon"
                Else
                    fieldName = itemParts(0)
                End If
                
                fieldValue = itemParts(1)
                
                ' 如果字段在映射表中，写入对应列
                If fieldMap.Exists(fieldName) Then
                    ws.Cells(i, fieldMap(fieldName)).Value = fieldValue
                End If
            End If
        Next item
    Next i
    
    ' 可选：自动调整目标列的宽度，让内容完整显示
    ws.Columns("B:F").AutoFit
End Sub

代码关键说明 #

1. 固定字段映射：用字典把每个订单字段绑定到固定列，哪怕部分订单缺少Coupon，其他字段的列位置也不会错位。
2. 精准提取值：把每个分号分隔的条目拆成字段名和对应值，不再保留冗余的描述文本。
3. 兼容特殊格式：针对带括号的Coupon条目，统一识别为"Coupon"字段，保证匹配正确。
4. 清理旧数据：处理每行前先清空目标列，避免之前的测试数据干扰结果。

测试你的示例数据效果 #

针对你给出的4条订单：

• 前两条无Coupon的订单，E列（Coupon列）会显示为空；
• 后两条带Coupon的订单，E列会准确显示"USD -70.71"；
• 所有字段的值都会对应到B-F列，不会出现错位或整段文本的问题。

为什么之前的代码失效？ #

• 你的代码用TextToColumns只是单纯按分号分割文本，没有提取每个条目的值，所以列里会显示完整的描述内容；
• 因为部分订单缺少Coupon字段，直接拆分后后面的字段（比如Total）会跑到错误的列，导致数据错位。

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