Question

寻找条件循环，可能要执行“直到”或类似的循环，才能遍历整个单元格范围（例如A3：A13），如果该范围内有空白单元格，将有一条命令会自动隐藏整行（如果空白单元格为A5，则意味着将隐藏整个第5行）该命令将一直运行，直到检测到所有空白单元格，并自动隐藏与空白单元格关联的所有行，直至到达末尾范围A13。任何建议都欢迎。

Answer 1

您可以尝试类似的方法。首先，我们遍历range("A" & LRow)，它将映射所有空白单元格并一次性隐藏所有单元格。

Option Explicit
Sub HideRows()
Dim ws As Worksheet
Dim LRow As Long
Dim HideRng As Range
Dim i As Long

Set ws = ActiveSheet
With ws
     LRow = .Range("A" & .Rows.Count).End(xlUp).Row
     For i = 2 To LRow


            If Len(Trim(.Range("A" & i).value)) = 0 Then
                If HideRng Is Nothing Then
                    Set HideRng = .Rows(i)
                Else
                    Set HideRng = Union(HideRng, .Rows(i))
                End If
            End If
        Next i

        If Not HideRng Is Nothing Then HideRng.EntireRow.Hidden = True

        Set HideRng = Nothing
End With
End Sub

VBA中的条件循环

1 个答案: