如何在VBA中扩展复选框代码，取消目标行及后续3行的隐藏？

需求背景 #

现有VBA代码通过CheckBox1复选框，根据Budget工作表A列的值控制对应行的隐藏状态。需新增功能：取消目标行隐藏时，同时取消其下方3行（A列为空）的隐藏，且因支持动态添加行，不能使用固定行号。

原代码问题 #

原代码存在两个明显问题：

1. 单元格范围写法错误（A4:A1000" & ...会生成无效区域，比如A4:A1000100）
2. 仅控制目标行的隐藏状态，未处理下方3行

修改后的完整代码 #

Private Sub CheckBox1_Click()
    Dim c As Range
    Dim lastRow As Long
    Dim targetRows As Range

    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("Budget")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 遍历A4到最后一个有值的行
        For Each c In .Range("A4:A" & lastRow).Cells
            If IsError(c) Then c.Value2 = "1000L" ' 统一处理错误值
            
            ' 判断当前行是否需要显示
            Dim shouldShow As Boolean
            shouldShow = (c.Value = "1000L" And .CheckBox1.Value)
            
            ' 设置当前行的隐藏状态
            c.EntireRow.Hidden = Not shouldShow
            
            ' 如果需要显示当前行，同步处理下方3行
            If shouldShow Then
                ' 计算要处理的结束行，避免超出工作表最大行
                Dim endRow As Long
                endRow = Application.Min(c.Row + 3, .Rows.Count)
                ' 选中当前行到下方3行的区域
                Set targetRows = .Rows(c.Row & ":" & endRow)
                ' 取消隐藏
                targetRows.Hidden = False
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 修正单元格范围：改用A4:A" & lastRow生成有效遍历范围，适配动态添加的行
• 新增下方3行控制逻辑：当目标行需要显示时，通过Application.Min避免超出工作表最大行号，然后统一取消当前行及下方3行的隐藏
• 逻辑清晰化：将显示判断单独赋值给shouldShow变量，提升代码可读性

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