Excel中如何用VBA自动隐藏空白行？

进入Excel后按Alt+F11进入VBE编辑器，单击插入菜单选择模块，然后将以下的代码Copy过去
Sub 空白隐藏()
Dim Fori As Long, Fory As Long, EndRow As Long
Application.ScreenUpdating = False
For Fori = 2 To 4
EndRow = Sheets(Fori).Range("A65536").End(xlUp).Row
For Fory = 7 To EndRow
If Sheets(Fori).Cells(Fory, "A") = 0 Then Sheets(Fori).Rows(Fory).EntireRow.Hidden = True
Next Fory
Next Fori
Application.ScreenUpdating = True
End Sub

Sub 取消隐藏()
Dim ForSh As Long
For ForSh = 2 To 4
Sheets(ForSh).Cells.EntireRow.Hidden = False
Next
End Sub
如下图

经过测试正常运行
望采纳，谢谢！

For Each sh In Sheets
sh.Activate
rw = sh.Range("a" & Rows.Count).End(xlUp).Row

For r = 1 To rw
If Rows(r).Hidden = True Then Rows(r).Hidden = False
Next r
Next sh