查找到空值后删除左移的速度快的VBA代码

以下是一个快速删除空值的VBA代码：

Sub DeleteBlankRows() Dim lastRow As Long Dim i As Long

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行数

Application.ScreenUpdating = False '禁用屏幕更新以提高执行速度

For i = lastRow To 1 Step -1 '从最后一行开始循环
    If WorksheetFunction.CountA(Rows(i)) = 0 Then '如果整行都是空的
        Rows(i).Delete Shift:=xlUp '删除该行并将上面的行向上移动
    End If
Next i

Application.ScreenUpdating = True '启用屏幕更新

End Sub

请注意，这段代码只会删除整行都为空的行。如果要删除部分为空的行，请使用其他代码。