如何在excel隱藏和恢復隱藏的行,列vba程序

在excelhome上有人提出這個問題,不是太難,就幫忙寫了個程序.程序寫的簡單,各位同仁見笑了.歡迎使用網易泡泡加我為好友

如何隱藏行,列的程序

Sub Macro1()

For i = 1 To 10
S1 = "B" & i
S2 = "K" & i
S3 = ":"
S4 = S1 + S3 + S2
S5 = WorksheetFunction.Count(Range(S4))
If S5 = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
主要是范圍的定義

取消隱藏

手工恢復,Ctrl+a全選,"格式",行,取消隱藏,
程序
Sub Macro1()

For i = 1 To 10
Rows(i).EntireRow.Hidden = False
Next i
End Sub