独立对多列分别排序：两列同时按字母排序的VBA问题

问题场景 #

我在电子表格中有多个带表头的列，后续会为各列添加内容，但添加量不同，各列相互独立且增长速度不同。我知道如何按CurrentRegion排序，但这种方式似乎只能基于单个表头排序。想简化操作，同时对相邻的两列按字母顺序排序，但尝试的VBA代码无法运行：

Sub Alphabatize()
' Alphabatize Macro
Dim LastRowA As Long
Dim LastRowB As Long
'Determine Last Row
    LastRowA = Range("A1" & Rows.Count).End(xlUp).Row
    LastRowB = Range("B1" & Rows.Count).End(xlUp).Row
'Sort
     With Range("A1")
        .SetRange Range("A1:LastRowA")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Range("B1")
        .SetRange Range("B1:LastRowB")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

代码错误分析 #

原代码存在两处语法逻辑错误：

• 计算最后一行时，Range("A1" & Rows.Count) 写法错误，应该是Range("A" & Rows.Count)（目标是定位A列最后一行的单元格，而非A1拼接行数）。
• 设置排序范围时，Range("A1:LastRowA") 错误地将变量名直接写入字符串，正确写法是Range("A1:A" & LastRowA)，通过字符串拼接动态生成范围。

修正后的代码 #

Sub Alphabatize()
' 按字母顺序排序A、B列（各列独立排序）
Dim LastRowA As Long
Dim LastRowB As Long

' 获取A列最后一行行号
LastRowA = Range("A" & Rows.Count).End(xlUp).Row
' 获取B列最后一行行号
LastRowB = Range("B" & Rows.Count).End(xlUp).Row

' 排序A列
With ActiveSheet.Sort
    .SetRange Range("A1:A" & LastRowA)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

' 排序B列
With ActiveSheet.Sort
    .SetRange Range("B1:B" & LastRowB)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

关键说明 #

• 代码会分别获取A、B列的有效数据最后一行，确保只排序有内容的区域。
• 每列独立执行排序操作，互不影响，适配各列内容量不同的场景。
• 使用ActiveSheet.Sort替代原代码中基于单元格的Sort对象，逻辑更清晰稳定。

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