VBA Worksheet_Change事件中多If语句从第三条起不生效求助

问题根因 #

你当前代码存在几个直接导致多重判断失效的问题：

• 变量拼写不一致：声明的变量为TrigerCell，赋值时用的是Triggercell，拼写错误直接导致判断逻辑异常
• 存在无效语法Or_：VBA没有这种拼接If判断的语法，每一条Or_都会打断当前If判断逻辑，导致后续判断完全不执行
• 结构冗余错误：多个并列If没有用ElseIf串联，代码末尾还多余了3个无效的End Sub
• 维护性差：217个类目如果全写If判断会极度臃肿，后续调整成本极高

优化方案 #

推荐使用Select Case替换多重If判断，逻辑更清晰，后续新增类目只需补充对应Case分支即可，优化后代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TriggerCell As Range
    Set TriggerCell = Range("$J$14")
    
    ' 仅在J14单元格内容修改时触发逻辑
    If Not Application.Intersect(TriggerCell, Target) Is Nothing Then
        Application.ScreenUpdating = False ' 关闭屏幕刷新大幅提升运行速度
        
        ' 先统一显示所有行，再隐藏不需要的行，避免逻辑冲突
        Rows("19:2500").Hidden = False
        
        Select Case TriggerCell.Value
            Case "Electrician, farm based business"
                Rows("26:2500").Hidden = True
            Case "Plumbing and heating contractors, farm based business"
                Rows("19:25,47:2500").Hidden = True
            Case "Plumbing contractors (plumber), farm based business"
                Rows("19:46,55:2500").Hidden = True
            Case "Assembly and installation of agricultural equipment in farm outbuildings, for others, farm based business"
                Rows("19:55,61:2500").Hidden = True
            ' 剩余213个类目直接在这里新增Case分支即可
            ' Case "对应类目名称"
            '   填写该类目需要隐藏的行范围
        End Select
        
        Application.ScreenUpdating = True ' 恢复屏幕刷新
    End If
End Sub

后续维护建议 #

如果后续类目还会持续新增，可以把类目和对应的显示/隐藏行范围提前存在隐藏的配置工作表中，后续无需修改代码，直接调整配置表就能更新规则，更适合大量类目的场景。

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