如何优化含大量If-End If结构的Excel VBA代码？附示例代码

嘿，我瞅见你这段Worksheet_Change代码里堆了一堆重复的If-End If块，这种写法不仅冗余，以后要加新的行或者修改判断条件时，简直是维护噩梦。我给你几个实用的优化思路，把代码变得清爽又好维护：

1. 用数组映射行与工作表的对应关系 #

原代码里每个行号和对应的工作表都是一一绑定的，我们可以把这些对应关系塞进一个数组，然后通过循环遍历数组来处理，彻底告别重复的If判断。

优化后的代码示例：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义行号和对应工作表名的映射数组，新增规则直接在这里加就行
    Dim sheetMappings As Variant
    sheetMappings = Array( _
        Array(3, "E-L1"), _
        Array(4, "E-L2"), _
        Array(5, "E-L3"), _
        Array(7, "M-L1") _
        ' 比如要加C6对应"XXX"，就加一行 Array(6, "XXX")
    )
    
    Dim i As Integer
    Dim rowNum As Integer
    Dim sheetName As String
    Dim isVisible As Boolean
    
    ' 把公共判断条件B1>0提出来，避免循环里重复检查
    Dim b1IsValid As Boolean
    b1IsValid = Me.Range("B1").Value > 0
    
    ' 遍历映射数组，统一处理每个工作表的可见性
    For i = LBound(sheetMappings) To UBound(sheetMappings)
        rowNum = sheetMappings(i)(0)
        sheetName = sheetMappings(i)(1)
        
        ' 组合判断条件
        isVisible = b1IsValid And _
                    Me.Range("B" & rowNum).Value > 0 And _
                    Me.Range("C" & rowNum).Value > 0
        
        ' 设置工作表可见性
        ThisWorkbook.Sheets(sheetName).Visible = isVisible
    Next i
End Sub

这个方案的核心优势：

• 消除了大量重复代码，代码量直接减半
• 新增或修改行与工作表的对应关系，只需要修改数组，不用复制粘贴If块
• 公共条件B1>0只检查一次，提升了运行效率

2. 封装判断逻辑为独立函数（进一步解耦） #

如果以后判断条件可能变化（比如要加D列的检查，或者调整判断规则），可以把判断逻辑封装成一个独立函数，让代码职责更清晰，修改起来更方便。

示例代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sheetMappings As Variant
    sheetMappings = Array( _
        Array(3, "E-L1"), _
        Array(4, "E-L2"), _
        Array(5, "E-L3"), _
        Array(7, "M-L1") _
    )
    
    Dim i As Integer
    Dim rowNum As Integer
    Dim sheetName As String
    
    For i = LBound(sheetMappings) To UBound(sheetMappings)
        rowNum = sheetMappings(i)(0)
        sheetName = sheetMappings(i)(1)
        
        ' 直接调用判断函数获取结果
        ThisWorkbook.Sheets(sheetName).Visible = IsSheetVisible(rowNum)
    Next i
End Sub

' 封装判断逻辑的私有函数，负责判断指定行是否满足显示工作表的条件
Private Function IsSheetVisible(rowNum As Integer) As Boolean
    With Me
        IsSheetVisible = (.Range("B1").Value > 0) And _
                         (.Range("B" & rowNum).Value > 0) And _
                         (.Range("C" & rowNum).Value > 0)
    End With
End Function

这样一来，主过程只负责遍历和设置工作表，判断逻辑全部交给函数处理。以后要修改判断规则，比如增加D" & rowNum & ">0的条件，直接改IsSheetVisible函数就行，完全不用碰主循环代码。

3. 优化Worksheet_Change的触发效率（额外小技巧） #

默认情况下，只要工作表里任何单元格变化，Worksheet_Change都会触发。我们可以加个判断，只有当修改的是我们关心的单元格（B1、B3/B4/B5/B7、C3/C4/C5/C7）时，才执行后续代码，避免不必要的运行。

在代码开头加上这段：

' 定义我们需要监听的单元格范围
Dim watchRange As Range
Set watchRange = Union(Me.Range("B1"), Me.Range("B3:B5,B7"), Me.Range("C3:C5,C7"))

' 如果修改的不是监听范围内的单元格，直接退出过程
If Intersect(Target, watchRange) Is Nothing Then Exit Sub

这样只有当用户修改了影响工作表可见性的单元格时，才会执行后面的逻辑，大大提升了代码的运行效率，尤其是在工作表有大量其他单元格操作的时候。

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