如何使用VBA对带表头的列按字母排序且关联列同步排序

排序错位的核心原因是你定义的排序范围仅包含A列，系统只会重排该范围内的单元格，不会联动其他列的关联数据。

修正后的代码如下，会自动识别完整的关联数据区域，整行联动排序：

Sub testSort()
    Dim lastRow As Long, lastCol As Long
    Dim fullDataRange As Range
    
    With Sheets(1)
        ' 定位A列最后一行有效数据
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 定位有效数据的最后一列
        lastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
        ' 定义包含所有关联列的完整排序范围
        Set fullDataRange = .Range(.Cells(2, 1), .Cells(lastRow, lastCol))
        
        ' 以A列为键升序排序，整行同步调整
        fullDataRange.Sort Key1:=.Range("A2"), _
            Order1:=xlAscending, _
            Header:=xlNo, _
            Orientation:=xlSortColumns
    End With
End Sub

注意事项：

• 如果你表格的第一行是表头，将Header:=xlNo改为Header:=xlYes，同时将排序范围的起始行从2调整为1，避免表头参与排序
• 代码使用End(xlUp)获取最后一行，兼容数据中存在空行的场景，比End(xlDown)稳定性更高
• 全程用With Sheets(1)绑定工作表，避免排序键和排序范围归属不同工作表导致的报错

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