如何解决VBA中Worksheet_SelectionChange过程过大的报错？

问题背景 #

原Worksheet_SelectionChange宏通过逐个判断选中单元格来调用对应宏，扩展至AA列后因代码重复量过大触发procedure too large错误。目标触发区域为B:AA列的指定行（11-14、16-17、19-22、24-27行），每个单元格对应调用同名宏（如选中B11调用B_11）；单个宏的核心功能为切换到Tasks工作表，隐藏指定列并筛选对应区域的数据。

解决方案 #

方案1：简化Worksheet_SelectionChange宏（保留原有单个宏） #

不再逐个编写单元格判断逻辑，通过动态生成宏名称实现调用，大幅减少代码量：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetArea As Range
    Dim macroName As String
    
    ' 定义所有需要触发宏的目标区域
    Set targetArea = Union( _
        Range("B11:AA14"), _
        Range("B16:AA17"), _
        Range("B19:AA22"), _
        Range("B24:AA27") _
    )
    
    ' 仅处理单个单元格选中且在目标区域内的情况
    If Target.Count = 1 And Not Intersect(Target, targetArea) Is Nothing Then
        ' 动态生成对应宏名称（如B11→B_11、AA11→AA_11）
        macroName = Replace(Target.Address(False, False), Target.Row, "") & "_" & Target.Row
        ' 调用对应宏
        Application.Run macroName
    End If
End Sub

此方案无需修改原有B_11、C_11等宏，仅优化SelectionChange的判断逻辑，快速解决过程过大问题。

方案2：合并所有单个宏为通用宏（彻底消除冗余） #

所有单个宏的逻辑高度一致，仅筛选的区域代码不同，可将其合并为一个通用宏，从根源上解决代码冗余：

步骤1：更新Worksheet_SelectionChange宏

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetArea As Range
    Dim areaCode As String
    
    Set targetArea = Union( _
        Range("B11:AA14"), _
        Range("B16:AA17"), _
        Range("B19:AA22"), _
        Range("B24:AA27") _
    )
    
    If Target.Count = 1 And Not Intersect(Target, targetArea) Is Nothing Then
        ' 获取对应区域代码：可根据实际存储方式调整，示例为读取单元格批注
        If Not Target.Comment Is Nothing Then
            areaCode = Target.Comment.Text
            ' 调用通用筛选宏
            FilterTasksByArea areaCode
        End If
        ' 可选：若区域代码存储在其他单元格（如目标单元格右侧第X列），替换为：
        ' areaCode = Target.Offset(0, 25).Value ' 示例为右侧第25列（B→Z）
    End If
End Sub

步骤2：创建通用筛选宏

Sub FilterTasksByArea(areaCode As String)
    With Sheets("Tasks")
        ' 重置列显示：先取消隐藏所有目标列，再隐藏指定列
        .Columns("F:BI").Hidden = False
        .Columns("J:BI").Hidden = True
        
        ' 筛选对应区域的数据
        .ListObjects("Table2435").Range.AutoFilter Field:=4, Criteria1:=areaCode
    End With
End Sub

步骤3：清理冗余代码

删除原有所有B_11、C_11等单个宏，完成优化。

此方案的优势：代码量极小，后续扩展列或行无需新增代码，维护成本大幅降低。

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