Question

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

如图1、2、3，一个工作簿中有三张工作表都是一样格式，但内容不一样，有法人多，有的少，所以空白行就不一样。我想在图4（房屋汇总）中设置两个按钮，按钮一：打印的时候需要将那3个工作表的空白行隐藏；按钮二：取消隐藏的空白行。这样的工作表太多，求大神怎么通过VBA实现？我是VBA小白，一定要告诉我怎么操作 怎么执行啊。谢谢大神了





Answer 1

进入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
如下图

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

追问

请问代码copy进去后，怎么执行啊？我想要通过按钮实现，一个按钮是隐藏空白行，一个按钮是取消隐藏

追答

开发工具里面的插入- -选择表单控件的第一个按钮

然后鼠标会变成十字，在表上画上后会弹出对话框，进行选择

记得采纳哦

当然能追加金币最好了😄😄

Answer 2

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