如何简化Excel中重复的VBA行隐藏代码

别担心，新手阶段遇到代码冗余和性能问题太正常了😉。你的代码重复了大量相同的判断逻辑，这不仅让代码变得冗长难维护，还会因为频繁操作工作表导致运行变慢。我们可以通过提取重复逻辑+批量循环处理来简化代码，同时加上性能优化技巧大幅提升运行速度。

核心思路 #

先帮你梳理下代码里的规律：

• 触发判断的单元格是AD31、AD40、AD49... 行号每次递增9
• 每个触发单元格对应隐藏/显示的是它下一行开始的连续8行（比如AD31对应32:39，刚好8行）

基于这个固定规律，我们可以用循环批量处理所有规则，彻底告别重复的If-Else语句。

优化后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 性能优化：关闭屏幕刷新和事件触发，避免卡顿与重复执行
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim currentTriggerRow As Integer
    Dim triggerCell As Range
    Dim targetRowRange As String
    
    ' 按规律循环处理所有触发行：从31开始，到202结束，每次加9
    ' 如果后续有更多行，直接修改结束值（比如改成292）即可
    For currentTriggerRow = 31 To 202 Step 9
        Set triggerCell = Me.Range("AD" & currentTriggerRow)
        ' 自动拼接需要操作的行范围：触发行+1 到 触发行+8
        targetRowRange = (currentTriggerRow + 1) & ":" & (currentTriggerRow + 8)
        
        ' 一行代码完成判断：单元格值为"No"则隐藏，否则显示
        Me.Rows(targetRowRange).EntireRow.Hidden = (triggerCell.Value = "No")
    Next currentTriggerRow
    
    ' 恢复屏幕更新和事件触发，避免影响后续操作
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

代码细节说明 #

1. 性能优化关键：

   • Application.ScreenUpdating = False：关闭屏幕实时刷新，避免每次隐藏/显示行时的画面闪烁，直接把运行速度提上来
   • Application.EnableEvents = False：临时禁用事件触发，防止修改行隐藏状态时再次触发Worksheet_Change事件，避免死循环或重复执行

2. 循环逻辑优势：

   • 不用再手动写每一组If判断，只要触发行的规律不变（每次加9），修改循环的结束值就能适配更长的工作表
   • Hidden = (triggerCell.Value = "No")是个简洁的写法：当单元格值等于"No"时，返回True（隐藏行），否则返回False（显示行），替代了原来的两段If-Else

3. 扩展性提示：
   如果你的触发行没有严格的递增规律，也可以用数组存储所有需要判断的行号，比如：

   Dim triggerRows As Variant
   triggerRows = Array(31, 40, 49, 58, 70) ' 自定义所有触发行号
   For i = LBound(triggerRows) To UBound(triggerRows)
       currentTriggerRow = triggerRows(i)
       ' 后续逻辑和上面一致
   Next i
   

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