Excel中隐藏和恢复隐藏的行,列的vba代码程序代码

Excel中隐藏行,列的程序的vba代码程序

Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/

–>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 SubExcel中手工取消隐藏的方法手工恢复,Ctrl+a全选,"格式",行,取消隐藏Excel中取消隐藏行,列的程序的vba代码程序

Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/

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