Excel VBA对预设单元格范围执行排序操作不生效问题求助

代码问题排查&修正方案 #

核心问题点： #

• 变量声明不规范：原代码Dim LastColumn, LastRow, FirstRow As Integer 仅FirstRow被声明为Integer类型，前两个变量默认是Variant，且Integer最大仅支持32767行，易溢出，建议统一改为Long类型
• 单元格对象未绑定工作表：Cells、Range如果前面没有加工作表对象限定符，默认引用当前活动工作表，即使你激活了ws，也存在隐性错误风险，二次排序的key1:=Range("B2") 没有绑定ws，也没有对应到你选定的rngCom范围
• 二次排序的Header参数错误：你划定的rngCom是从E列值为5的第一行开始的数据区域，本身不包含表头，此时设置Header:=xlYes会把第一行数据当做表头跳过排序，这是排序不生效的核心原因之一
• Find方法参数不全：VBA的Find方法会继承上一次使用时的参数配置，未显式指定LookIn、LookAt等参数时可能出现查找结果不符合预期的问题，且如果E列没有值为5的行，Find会返回Nothing，直接取Row属性会触发运行时错误

修正后代码： #

Sub References_Sort()
    ' 声明工作表对象
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Hoja2")
    
    ' 统一声明变量类型为Long避免溢出
    Dim LastColumn As Long, LastRow As Long, FirstRow As Long
    Dim rngCom As Range
    Dim findRng As Range
    
    ' 第一次全量排序：A-I列按E列升序
    ws.Range("A:I").Sort _
        Key1:=ws.Range("E2"), _
        Order1:=xlAscending, _
        Header:=xlYes
        
    ' 读取当前工作表的最大行、最大列
    With ws
        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        ' 查找E列第一个值为5的行，显式指定查找参数
        Set findRng = .Range("E:E").Find(What:=5, After:=.Range("E1"), LookIn:=xlValues, LookAt:=xlWhole)
        ' 处理找不到的场景避免报错
        If findRng Is Nothing Then
            MsgBox "E列未找到值为5的行，无需二次排序", vbInformation
            Exit Sub
        End If
        FirstRow = findRng.Row
        
        ' 划定二次排序范围，所有Cells前加.绑定ws
        Set rngCom = .Range(.Cells(FirstRow, "A"), .Cells(LastRow, LastColumn))
          
        ' 二次排序：按B列升序，无表头
        rngCom.Sort _
            Key1:=rngCom.Columns(2), ' 对应rngCom范围内的第二列即原表B列
            Order1:=xlAscending, _
            Header:=xlNo
    End With
End Sub

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