如何简化Excel VBA中隐藏空数据行的CheckBox事件代码？

原代码通过枚举所有单元格空/非空的组合来控制行隐藏，不仅代码冗余，后续扩展行时还会导致组合数爆炸。可以通过逐行关联单元格状态的方式大幅简化代码，完全匹配原逻辑：

Private Sub CheckBox3_Click()
    Dim rowNum As Integer
    
    ' 复选框未勾选时，直接隐藏12-14行
    If Not CheckBox3 Then
        Rows("12:14").Hidden = True
        Exit Sub
    End If
    
    ' 复选框勾选时，逐行判断对应A列单元格是否为空，空则隐藏该行
    For rowNum = 12 To 14
        Rows(rowNum).Hidden = IsEmpty(Range("A" & rowNum))
    Next rowNum
End Sub

简化思路 #

1. 先处理复选框未勾选的分支：直接批量隐藏目标行，退出过程避免多余判断
2. 勾选状态下，循环遍历目标行，将每行的隐藏状态直接与对应A列单元格的空值状态绑定——单元格为空则隐藏该行，不为空则显示

这种写法的优势：

• 代码量大幅减少，逻辑清晰易读
• 扩展性极强：如果后续需要处理更多行（比如12-20行），只需修改循环的起止数字，无需新增大量判断分支
• 完全覆盖原代码的所有8种组合逻辑，没有功能损失

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