如何利用Loop循环简化Excel VBA行隐藏代码？

当然可以用Loop循环来简化你的代码！先帮你梳理下原代码的规律，再给出改写后的实现～

原代码的核心逻辑 #

从你给出的片段能看出来，你的代码是逐行检查A列特定单元格是否为空，再根据结果隐藏对应行范围——本质是在重复执行相同的判断逻辑，只是每次涉及的行号在递增。这种场景完全适合用循环来简化，能避免冗余的重复代码，后续维护也更方便。

改写后的循环代码 #

假设你的原代码是从检查A120开始，对应到隐藏行的规律是：空值时隐藏从当前检查行的下一行到126行，非空时隐藏当前检查行的下两行。我们可以用For...Next循环来实现：

Sub HideRowsWithLoop()
    Dim startCheckRow As Integer, i As Integer
    startCheckRow = 120 ' 设置起始检查的行号（对应A120）
    
    ' 循环遍历需要检查的行，这里假设你要检查A120到A125（共6次循环）
    For i = 0 To 5
        ' 动态获取当前要检查的A列单元格
        If Range("A" & startCheckRow + i).Value = "" Then
            ' 空值时：隐藏从检查行的下一行到126行
            Rows((startCheckRow + i + 1) & ":126").EntireRow.Hidden = True
        Else
            ' 非空时：隐藏检查行的下两行（比如A120非空则隐藏121:122）
            Rows((startCheckRow + i + 1) & ":" & (startCheckRow + i + 2)).EntireRow.Hidden = False
        End If
    Next i
End Sub

关键调整说明 #

• 用startCheckRow统一管理起始行号，后续如果要调整检查的起始位置，只改这一个值就行，不用逐行修改代码。
• 循环变量i用来控制行号的偏移量，把重复的判断逻辑动态化，避免写一堆几乎一样的If语句。
• 行范围通过&拼接字符串和变量，确保每次循环都能生成正确的目标行范围。

如果你的实际隐藏行范围和假设的不一样（比如空值时隐藏的结束行不是126，或者非空时的隐藏行数不同），只需要调整Rows()里的行号计算逻辑就可以——核心思路就是把重复的逻辑用循环变量动态生成。

内容的提问来源于stack exchange，提问作者RomanM