教程 | 使用VBA代码删除空白行

1. 按“Alt” + “F11”键打开“Microsoft Visual Basic for Applications”窗口。
2. 点击“插入” > “模块”以创建一个新的“模块”脚本，复制并将以下代码粘贴到脚本中。

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 按“F5”键运行代码，然后在弹出的“KutoolsforExcel”对话框中选择要删除空白行的范围。
4. 点击“确定”。现在选定区域中的空白行已被删除。

注意：使用此VBA代码时，最好在某个范围内删除空白行，而不是在整个工作表中删除，否则Microsoft Excel可能会卡住。

---

REF