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中手工取消隱藏的方法手工恢復(fù),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