如何用Excel VBA实现：D列指定单元格非空时阻止对应行被隐藏？

原代码存在的问题 #

• 错误用字符串包裹变量：IsEmpty("rRng.value")会把rRng.value当作固定字符串判断，永远无法触发正确逻辑
• 触发范围限定不准确：仅判断行34-40，未锁定D列，也未检查修改单元格是否和目标区域有交集，容易误触发
• 区域非空判断逻辑错误：IsEmpty无法直接判断一个单元格区域是否存在非空内容

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rRng As Range
    Set rRng = Me.Range("D35:D40") ' 用Me指代当前工作表，适配性更强
    
    ' 仅当修改的单元格在目标区域或D34时触发逻辑（保留原代码关联D34的逻辑）
    If Not Intersect(Target, Union(rRng, Me.Range("D34"))) Is Nothing Then
        ' 检查D35-D40是否存在非空单元格
        Dim hasContent As Boolean
        hasContent = (WorksheetFunction.CountA(rRng) > 0)
        
        ' 核心逻辑：只要D35-D40有内容就不隐藏行；全空时根据D34的值决定是否隐藏
        rRng.EntireRow.Hidden = (Not hasContent) And (Me.Range("D34").Value = "")
    End If
End Sub

代码说明 #

• 用Intersect精准锁定触发范围，避免无关单元格修改触发代码
• 通过WorksheetFunction.CountA统计非空单元格数量，准确判断目标区域是否有文本
• 核心逻辑简化为一行：只有当D35-D40全空且D34为空时才隐藏行；只要D35-D40有任意内容，就强制显示对应行，完全匹配需求

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