隐藏 Excel 工作簿上所有工作表上的空白行

Question

我有一个包含大约 25 个工作表的工作簿。 如果该行的 A 列中没有任何内容（数字或文本），我想要一个宏来隐藏任何行（从 5 到 33）。

有人可以帮忙吗？

我见过类似的删除空白行等。 但我不够聪明，无法改变这些以适应。 如果您能给我代码，我可以将其复制到我的文件（VBA）中。

请帮助...谢谢

Sub Hiderow() 
    Application.ScreenUpdating = False 
    Dim s As String 

    For i = 1 To Range("A5:A33").Count 
        s = i & ":" & i 
          If IsEmpty(Cells(i, 1).Value) Then Rows(s).EntireRow.Hidden = True 
    Next 

    Application.ScreenUpdating = True 
End Sub

Answer 1

循环每个工作表，然后在每个工作表中循环第 5 到 33 行。

Sub Hiderow()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    'Loop each worksheet
    For Each ws In ThisWorkbook.Worksheets
        'make sure the ranges refer to the correct sheet
        With ws
            'Loop the rows
            For i = 5 To 33
                'Set hidden status based on whether there is a visible value in column A
                .Rows(i).Hidden = .Cells(i, 1) = ""
            Next
        End With
    Next ws
    Application.ScreenUpdating = True
End Sub