Excel双击隐藏/展开行：适配大量行的VBA代码优化咨询

原代码通过逐个判断A列特定单元格来控制对应行的隐藏/展开，当需要扩展到大量行时重复编写判断逻辑效率极低。以下是基于原代码规律的优化方案，无需重复添加判断块即可适配更多行：

方案1：基于原代码固定规律简化 #

原代码中触发行（A9、A16、A23...）间隔7行，每个触发行对应下方6行的隐藏/展开。利用这个数学规律可以大幅简化代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅处理A列单元格
    If Target.Column = 1 Then
        Dim triggerRow As Integer
        triggerRow = Target.Row
        ' 验证行号是否属于9、16、23...的序列
        If (triggerRow - 9) Mod 7 = 0 And triggerRow >= 9 Then
            Cancel = True
            ' 切换触发行下方6行的隐藏状态
            Rows(triggerRow + 1 & ":" & triggerRow + 6).Hidden = Not Rows(triggerRow + 1 & ":" & triggerRow + 6).Hidden
        End If
    End If
End Sub

方案2：高度可配置版本 #

如果需要调整触发列、起始行、触发间隔或隐藏行数，可使用带常量定义的版本，修改常量即可适配不同需求：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 可自定义配置参数
    Const TRIGGER_COLUMN = 1    ' 触发列：A列=1，B列=2，以此类推
    Const START_ROW = 9         ' 第一个触发行的行号
    Const TRIGGER_INTERVAL = 7  ' 触发行之间的间隔行数
    Const HIDE_ROW_NUM = 6      ' 每次要隐藏/展开的行数
    
    If Target.Column = TRIGGER_COLUMN Then
        Dim triggerRow As Integer
        triggerRow = Target.Row
        ' 验证行号是否在合法触发序列内
        If triggerRow >= START_ROW And (triggerRow - START_ROW) Mod TRIGGER_INTERVAL = 0 Then
            Cancel = True
            Dim hideStart As Integer, hideEnd As Integer
            hideStart = triggerRow + 1
            hideEnd = triggerRow + HIDE_ROW_NUM
            
            ' 避免超出工作表最大行范围
            If hideEnd <= Rows.Count Then
                Rows(hideStart & ":" & hideEnd).Hidden = Not Rows(hideStart & ":" & hideEnd).Hidden
            End If
        End If
    End If
End Sub

使用说明 #

1. 右键目标工作表标签，选择「查看代码」，将代码粘贴到工作表模块中
2. 双击A列（或配置的触发列）符合条件的行，即可自动切换对应行的隐藏/展开状态
3. 若要适配100行范围，只要触发行序列（9、16、23...）不超过100即可，无需修改核心代码

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