Excel VBA宏开发需求求助：多条件排序、行插入与删除

需求清单 #

• 按B列对数据进行排序
• 若当前行B列值与上一行不同，在当前行上方插入空行
• 删除K列空白的行
• 对K列值为Purchase order的行，按O列日期排序
• 对K列值为Planned order的行，按P列日期排序

现有代码片段 #

Sub InsertRows()
  Dim lastRow As Long
  Dim rowPtr As Long

  lastRow = Range("B" & Rows.Count).End(xlUp).Row
  For rowPtr = lastRow To 2 Step -1
    If Not IsEmpty(Range("B" & rowPtr)) Then
      If Range("B" & rowPtr) <> Range("B" & rowPtr - 1) Then
        Range("B" & rowPtr).EntireRow.Insert
      End If
    End If
  Next
End Sub

遇到的问题 #

无法实现按K列值筛选特定行后分别排序的功能（即区分Purchase order和Planned order分别按对应日期列排序）

示例效果 #

• 初始数据：表格包含多组B列数据，K列存在空白、Purchase order、Planned order三种值，日期列O、P对应不同类型订单
• 格式化结果：B列排序后分组间有空行，K列无空白行，Purchase order行按O列有序排列，Planned order行按P列有序排列

完整解决方案代码 #

Sub ProcessOrders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rowPtr As Long
    Dim sortRange As Range
    
    ' 指定操作的工作表，可根据实际修改表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Activate
    
    ' 步骤1：删除K列空白行（从后往前遍历避免索引错乱）
    lastRow = ws.Range("K" & ws.Rows.Count).End(xlUp).Row
    For rowPtr = lastRow To 1 Step -1
        If IsEmpty(ws.Range("K" & rowPtr)) Then
            ws.Rows(rowPtr).Delete
        End If
    Next rowPtr
    
    ' 步骤2：按B列排序（先排序保证同组数据连续）
    lastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
    Set sortRange = ws.Range("A1:" & ws.Cells(lastRow, ws.Columns.Count).Address)
    sortRange.Sort Key1:=ws.Range("B1"), Order1:=xlAscending, Header:=xlYes
    
    ' 步骤3：在B列分组间插入空行（从后往前遍历）
    lastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
    For rowPtr = lastRow To 2 Step -1
        If ws.Range("B" & rowPtr).Value <> ws.Range("B" & rowPtr - 1).Value Then
            ws.Rows(rowPtr).Insert
        End If
    Next rowPtr
    
    ' 步骤4&5：分类型按对应日期排序（两种方式二选一即可）
    ' 方式一：多关键字排序，先按K列分组，再分别按O、P列排序
    lastRow = ws.Range("K" & ws.Rows.Count).End(xlUp).Row
    Set sortRange = ws.Range("A1:" & ws.Cells(lastRow, ws.Columns.Count).Address)
    ' 先对Purchase order按O列排序
    sortRange.Sort Key1:=ws.Range("K1"), Order1:=xlAscending, _
                   Key2:=ws.Range("O1"), Order2:=xlAscending, _
                   Header:=xlYes
    ' 再对Planned order按P列排序，不影响已排好的Purchase order组
    sortRange.Sort Key1:=ws.Range("K1"), Order1:=xlAscending, _
                   Key2:=ws.Range("P1"), Order2:=xlAscending, _
                   Header:=xlYes, MatchCase:=False

    ' 方式二：自动筛选后单独排序（更精准，适合复杂场景）
    ' ws.Range("A1").AutoFilter Field:=11, Criteria1:="Purchase order"
    ' lastRow = ws.Range("O" & ws.Rows.Count).End(xlUp).Row
    ' ws.Range("A2:" & ws.Cells(lastRow, ws.Columns.Count).Address).Sort Key1:=ws.Range("O2"), Order1:=xlAscending, Header:=xlNo
    ' ws.AutoFilterMode = False
    '
    ' ws.Range("A1").AutoFilter Field:=11, Criteria1:="Planned order"
    ' lastRow = ws.Range("P" & ws.Rows.Count).End(xlUp).Row
    ' ws.Range("A2:" & ws.Cells(lastRow, ws.Columns.Count).Address).Sort Key1:=ws.Range("P2"), Order1:=xlAscending, Header:=xlNo
    ' ws.AutoFilterMode = False
End Sub

代码说明 #

1. 删除空白行：从后往前遍历，避免因行删除导致的索引错位问题
2. B列排序：先完成排序确保同组B列数据连续，为后续插入空行做铺垫
3. 插入空行：反向遍历对比相邻行B列值，不同则插入空行，保证分组清晰
4. 分类型排序：
   • 方式一通过多关键字排序，利用排序优先级实现分组后按对应日期列排序，操作简洁
   • 方式二通过自动筛选单独处理两类订单，排序逻辑更清晰，适合数据结构复杂的场景

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