Excel VBA多列分段排序需求：按不同规则对各Section数据排序

核心思路 #

直接用Columns.Sort确实没法实现不同Section的差异化规则，得把每个Section的数据拆出来单独处理：

• 先整体按Section列A-Z排序，把同组数据归到一起
• 遍历每个Section的独立数据块，根据Section编号应用对应的多层排序规则

完整VBA代码 #

Sub SortBySectionWithCustomRules()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sectionStart As Long, sectionEnd As Long
    Dim currentSection As String
    
    ' 设置目标工作表，根据实际情况修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 第一步：整体按Section列A-Z排序（表头在第1行，数据从第2行开始）
    ws.Range("A1:D" & lastRow).Sort _
        Key1:=ws.Range("A1"), Order1:=xlAscending, _
        Header:=xlYes
    
    ' 第二步：遍历每个Section，应用差异化排序
    sectionStart = 2 ' 数据起始行
    currentSection = ws.Cells(sectionStart, "A").Value
    
    Do While sectionStart <= lastRow
        ' 找到当前Section的最后一行
        sectionEnd = sectionStart
        Do While sectionEnd <= lastRow And ws.Cells(sectionEnd, "A").Value = currentSection
            sectionEnd = sectionEnd + 1
        Loop
        sectionEnd = sectionEnd - 1 ' 修正为当前Section的最后一行
        
        ' 根据Section值应用对应的排序规则
        Select Case currentSection
            Case "Section 1"
                ws.Range("A" & sectionStart & ":D" & sectionEnd).Sort _
                    Key1:=ws.Range("B" & sectionStart), Order1:=xlAscending, _
                    Key2:=ws.Range("D" & sectionStart), Order2:=xlAscending, _
                    Header:=xlNo ' 这里是数据块，没有表头
            
            Case "Section 2"
                ws.Range("A" & sectionStart & ":D" & sectionEnd).Sort _
                    Key1:=ws.Range("D" & sectionStart), Order1:=xlAscending, _
                    Header:=xlNo
            
            Case "Section 3"
                ws.Range("A" & sectionStart & ":D" & sectionEnd).Sort _
                    Key1:=ws.Range("C" & sectionStart), Order1:=xlAscending, _
                    Key2:=ws.Range("B" & sectionStart), Order2:=xlAscending, _
                    Key3:=ws.Range("D" & sectionStart), Order3:=xlAscending, _
                    Header:=xlNo
            
            Case "Section 4"
                ws.Range("A" & sectionStart & ":D" & sectionEnd).Sort _
                    Key1:=ws.Range("B" & sectionStart), Order1:=xlAscending, _
                    Key2:=ws.Range("C" & sectionStart), Order2:=xlAscending, _
                    Key3:=ws.Range("D" & sectionStart), Order3:=xlAscending, _
                    Header:=xlNo
        End Select
        
        ' 跳到下一个Section
        sectionStart = sectionEnd + 1
        If sectionStart <= lastRow Then
            currentSection = ws.Cells(sectionStart, "A").Value
        End If
    Loop
    
    MsgBox "排序完成！"
End Sub

关键说明 #

• 代码默认表头在第1行，数据列对应Section(A)、Subsection(B)、Client(C)、Date(D)，如果你的列位置不同，直接修改代码里的列标识（比如把"B"改成"E"）即可
• 每个Section的数据块排序时用Header:=xlNo，因为这只是整体数据的一部分，没有单独表头
• 日期排序用xlAscending对应“由旧到新”，如果要改成由新到旧，换成xlDescending就行

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