[Excel VBA办公]如何使用VBA批量删除空行

在处理Excel数据时，空行可能会干扰数据分析和展示。以下是一个VBA代码示例，帮助你批量删除工作表中的空行。

1. 代码说明

此代码将遍历指定工作表，删除所有空行，确保数据整洁。

2. VBA代码

' 删除sheet1的空行
Sub DeleteEmptyRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' 获取当前工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 找到最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 从下往上遍历，删除空行
    For i = lastRow To 1 Step -1
        If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).Delete
        End If
    Next i

    MsgBox "空行已删除！", vbInformation
End Sub

3. 如何使用

1. 打开Excel：启动Excel并打开你的工作簿。
2. 打开VBA编辑器：按 ALT + F11 进入VBA编辑器。
3. 插入模块：右键点击你的工作簿，选择“插入” > “模块”。
4. 粘贴代码：将上述代码粘贴到模块窗口中。
5. 运行代码：按 F5 或从菜单选择“运行”。

4. 注意事项

• 确保原始工作表名称为“Sheet1”或根据需要进行修改。
• 该代码将删除所有空行，请在使用前备份数据。

5. 总结

使用VBA批量删除空行可以帮助你保持数据的整洁性，提高数据处理效率。希望这个代码能对你有所帮助！