execl 中如何隐藏不连续的空行及如何再显示这些隐藏的行

我有个工作表，需要每次将表中所有数值为零的行隐藏起来然后拷到幻灯片上。下次做的时候这些原来隐藏的行必须要先显示出来，因为有可能在下次的时候其中某些行会有数据，需要从新对所有数值为零的行隐藏。

用VBA自动实现
如果觉得好，请采纳。

Sub Column_Hide()
Dim i
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Value = 0 Then Cells(i, 1).EntireRow.Hidden = True '设为False就是显示
Next i
End Sub

只有手动去选中要隐藏的行或列，可以选中不连续的行或列，然后进行隐藏！ 目前我还没有遇到过这个方法！ 望指教！ 再看看别人怎么说的。