如何修改Excel VBA排序逻辑：B列值为2时按L列文本排序

原代码实现点击CommandButton1时，按B列（值为0、1、2）升序、J列日期升序排序，自动调整行高并保存工作簿。针对B列值为2时额外按L列文本值（"X"或"N/A"）排序的需求，修改后的代码如下：

Private Sub CommandButton1_Click()
    ' Sort button and save a backup copy
    Dim sortRange As Range
    ' 获取包含表头的完整数据区域（从B1开始）
    Set sortRange = Range("B1").CurrentRegion
    
    ' 第一步：基础排序 - B列升序，J列升序
    sortRange.Sort Key1:=sortRange.Columns(1), Order1:=xlAscending, _
                   Key2:=sortRange.Columns(9), Order2:=xlAscending, _
                   Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
    ' 第二步：筛选B列值为2的行，单独按L列排序
    sortRange.AutoFilter Field:=1, Criteria1:=2 ' Field=1对应sortRange的第1列（即B列）
    
    ' 处理无匹配行的情况，避免报错
    On Error Resume Next
    Dim filteredRows As Range
    ' 跳过表头，获取筛选后的可见数据行
    Set filteredRows = sortRange.Offset(1).Resize(sortRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not filteredRows Is Nothing Then
        ' 对筛选出的行按L列（sortRange的第11列）升序排序
        filteredRows.Sort Key1:=sortRange.Columns(11), Order1:=xlAscending, _
                          Header:=xlNo, MatchCase:=False, Orientation:=xlTopToBottom
    End If
    
    ' 取消自动筛选
    sortRange.AutoFilter
    
    ' 自动调整行高
    sortRange.Rows.AutoFit
    
    ' 保存工作簿
    ActiveWorkbook.Save
End Sub

核心改动说明： #

• 用CurrentRegion精准定位数据区域，替代原代码中整列操作，提升运行效率且避免干扰其他无关单元格
• 拆分排序逻辑：先完成全局的B列→J列排序，再单独处理B=2的行，保证原有排序逻辑不受影响
• 加入错误捕获，防止无B=2行时代码抛出异常
• 移除冗余的单元格选中操作（原代码中Cells.Select等），VBA直接操作区域更高效规范

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