使用VBA实现双列排序并添加间隔行的技术求助

我每周都会收到需处理的数据，为优化呈现效果需执行重复任务，因此决定用VBA实现自动化以节省时间。具体需求：

• 按B列（市场）字母顺序排序
• 同一市场下按H列（费用）排序
• 不同市场之间、同一市场内不同费用之间均需插入两行间隔

目前编写的代码无法完全实现需求，附上现有代码、原始数据截图及期望效果截图，恳请帮忙解决。

现有代码 #

Sub step()
    
'

    
    Dim lngRow&, i&
    Dim strMarket$
    lngRow& = Worksheets("DATA").Cells(Rows.Count, "B").End(xlUp).Row
    With Worksheets("DATA").AutoFilter.Sort
        With .SortFields
            .Clear
            .Add2 Key:=Range("H1:H" & lngRow&), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        .Header = xlYes
        .Apply
       With .SortFields
        .Clear
           .Add2 Key:=Range("B1:B" & lngRow&), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        .Header = xlYes
        .Apply
    End With

    For i = lngRow& To 3 Step -1
        strMarket$ = Worksheets("DATA").Cells(i, 2)
        If Worksheets("DATA").Cells(i, 2).Offset(-1) <> strMarket$ Then Rows(i).Insert: Rows(i).Insert
    Next i
End Sub

原始数据截图 #

期望效果截图 #

修正后的代码 #

Sub ProcessData()
    Dim lngRow&, i&
    Dim currentMarket$, currentFee$
    Dim ws As Worksheet
    Set ws = Worksheets("DATA")
    
    ' 获取数据最后一行
    lngRow& = ws.Cells(Rows.Count, "B").End(xlUp).Row
    
    ' 排序：先按B列（市场）升序，再按H列（费用）升序
    With ws.AutoFilter.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=ws.Range("B1:B" & lngRow&), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=ws.Range("H1:H" & lngRow&), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .Apply
    End With
    
    ' 插入两行间隔：不同市场、同一市场不同费用时插入
    For i = lngRow& To 3 Step -1
        currentMarket$ = ws.Cells(i, 2).Value
        currentFee$ = ws.Cells(i, 8).Value
        ' 判断上一行的市场或费用是否不同
        If ws.Cells(i - 1, 2).Value <> currentMarket$ _
            Or ws.Cells(i - 1, 8).Value <> currentFee$ Then
            ws.Rows(i).Insert
            ws.Rows(i).Insert
        End If
    Next i
End Sub

修改说明 #

1. 排序逻辑优化：原代码分两次排序会导致后一次排序覆盖前一次结果，修正后同时添加B列和H列的排序规则，一次完成排序，确保先按市场分组，组内按费用排序。
2. 间隔插入条件完善：原代码仅判断市场差异，修正后同时检查市场和费用，满足“不同市场之间、同一市场内不同费用之间均插入两行间隔”的需求。
3. 代码可读性优化：定义工作表变量ws，避免重复写Worksheets("DATA")，变量命名更清晰。

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