Excel中隐藏行,列的程序的vba代码程序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 Excel中手工取消隐藏的方法手工恢复,Ctrl+a全选,"格式",行,取消隐藏
Excel中取消隐藏行,列的程序的vba代码程序Sub Macro1()
For i = 1 To 10 Rows(i).EntireRow.Hidden = False Next i End Sub |