删除VBA中空单元格的整行

Sub DeleteEmptyRows()
    Dim rng As Range
    Dim cell As Range
    
    '设置要检查的范围，可以根据需要修改
    Set rng = Range("A1:A10")
    
    '禁用屏幕刷新和事件处理
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    '遍历范围中的每个单元格
    For Each cell In rng
        '检查单元格是否为空
        If IsEmpty(cell) Then
            '删除整行
            cell.EntireRow.Delete
        End If
    Next cell
    
    '恢复屏幕刷新和事件处理
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub