Excel 2019/VBA排序异常：选中区域上方标题行被纳入排序求助

核心问题原因 #

录制宏生成的代码常依赖Selection操作，且未正确配置排序的Header参数，导致第6行标题被误纳入排序范围。直接指定明确的数据范围并设置正确的排序参数即可解决。

方案1：排除标题行，仅排序数据区域 #

适合标题行（第6行）固定、数据从第7行开始的场景：

Sub SortGolfSchedule()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("日程表") '替换为你的实际工作表名称
    
    '定位数据区域：从第7行开始，到A列最后一行非空单元格，列范围按需调整（示例为A到G）
    Dim dataRange As Range
    Set dataRange = ws.Range("A7:G" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    '执行排序（示例按B列升序，可根据需求修改排序键和顺序）
    With ws.Sort
        .SetRange dataRange
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("B7"), Order:=xlAscending
        .Header = xlNo '数据区域不含标题，设置为xlNo
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

方案2：包含标题行，明确标记不参与排序 #

如果需要选中包含标题的范围，通过Header:=xlYes让Excel识别标题行：

Sub SortWithHeaderRow()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("日程表")
    
    '范围包含第6行标题，到数据最后一行
    Dim fullRange As Range
    Set fullRange = ws.Range("A6:G" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    With ws.Sort
        .SetRange fullRange
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("B6"), Order:=xlAscending
        .Header = xlYes '明确指定范围第一行是标题，不参与排序
        .Apply
    End With
End Sub

关键注意事项 #

• 避免使用录制宏生成的Selection.Sort，直接通过Worksheet.Sort操作指定范围更稳定。
• 确认排序键的单元格引用与数据范围匹配：方案1中排序键用B7（数据区域的第一行），方案2中用B6（标题行对应的列）。

内容的提问来源于stack exchange，提问作者Alan - Seattle