求可动态处理的Excel VBA代码：按H列排序后删除H:Y列无数据行

修正后的完整代码 #

Sub SortAndDeleteEmptyRows()
    Dim ws As Worksheet
    Dim tblRange As Range
    Dim lastRow As Long
    Dim deleteRange As Range
    
    ' 替换为你的目标工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Table")
    
    ' 基于始终有值的A列，动态获取数据最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 1. 按H列排序，将空白行移至底部
    With ws.Sort
        .SortFields.Clear ' 清除原有排序规则，避免冲突
        .SortFields.Add2 Key:=ws.Range("H3:H" & lastRow), _
                         SortOn:=xlSortOnValues, _
                         Order:=xlAscending, _
                         DataOption:=xlSortNormal
        .SetRange ws.Range("A3:Y" & lastRow)
        .Header = xlNo ' 若第3行是表头，改为xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 2. 删除H:Y列全为空的行
    Dim i As Long
    For i = lastRow To 3 Step -1 ' 从下往上遍历，避免删除行后索引错乱
        ' 检查当前行H到Y列是否无任何数据
        If Application.CountA(ws.Range("H" & i & ":Y" & i)) = 0 Then
            ' 批量收集待删除行
            If deleteRange Is Nothing Then
                Set deleteRange = ws.Rows(i)
            Else
                Set deleteRange = Union(deleteRange, ws.Rows(i))
            End If
        End If
    Next i
    
    ' 一次性删除所有符合条件的行
    If Not deleteRange Is Nothing Then
        deleteRange.Delete Shift:=xlUp
    End If
End Sub

关键改进说明 #

• 统一工作表对象：原代码Table/Tab/Tabs存在命名混乱，统一用ws变量指向目标工作表，避免笔误。
• 动态获取最后一行：依赖始终有值的A列计算最后行号，确保覆盖所有新增数据，无需静态变量。
• 修正排序范围：原代码"A3:Y3" & LastRow写法错误，改为"A3:Y" & lastRow，正确覆盖完整数据区域；排序前清除旧规则，避免冲突。
• 精准判断全空行：用Application.CountA检查H:Y列是否无任何数据，避免误删"H列空但其他列有值"的行。
• 高效批量删除：从下往上遍历收集待删除行，最后一次性删除，比逐行删除更高效，也避免行号变化导致的遗漏。
• 规避Select操作：原代码的Select+Clear是不规范写法，直接操作单元格范围更稳定高效。

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