基于单元格内容批量隐藏多组行的VBA脚本优化

需求说明 #

对工作表FR-3-XX_Fiche d'erreur的1-1740行做分组处理：

• 每58行为一组
• 根据每组对应控制单元格判断状态：首组对应I3，后续每组控制单元格行号依次+58（即I63、I119...）
• 若控制单元格为空或仅含空格，隐藏整组58行；否则显示整组行

原问题代码（低效逐行处理） #

原代码通过嵌套循环逐行设置隐藏状态，需执行1740次操作，运行缓慢：

Sub Hide_column_and_Row_FR_3_XX_Fiche_Erreur()

Dim NbreLigne As Integer
Dim hh As Variant
Dim zz As Variant
Dim tableau As range

Set wrkshtDoc = ActiveWorkbook.Worksheets("FR-3-XX_Fiche d'erreur")
Set tableau = wrkshtDoc.range("A1:L1740")
hh = 1
   
NbreLigne = tableau.Rows.Count

For k = 3 To NbreLigne
   
    If tableau(k, 9) = " " Or tableau(k, 9) = Empty Then
        For zz = 1 To 58
            wrkshtDoc.Rows(hh).Hidden = True
            hh = hh + 1
        Next zz
                  
    Else
        For zz = 1 To 58
            wrkshtDoc.Rows(hh).Hidden = False
            hh = hh + 1
        Next zz
    End If
        
    k = k + 57
          
Next k
End Sub

优化后代码（高效批量处理） #

优化后仅需循环30次，通过批量选中整组行设置状态，大幅提升运行效率：

Sub Hide_column_and_Row_FR_3_XX_Fiche_Erreur()

    Dim NbreLigne As Long
    Dim tableau As range
    
    Set wrkshtDoc = ActiveWorkbook.Worksheets("FR-3-XX_Fiche d'erreur")
    Set tableau = wrkshtDoc.range("A1:L1740")
    
    NbreLigne = tableau.Rows.Count
    
    Dim k As Long
    For k = 1 To NbreLigne Step 58
        tableau(k, 1).Resize(58, 1).EntireRow.Hidden = (tableau(k + 2, 9) = " " Or tableau(k + 2, 9) = Empty)
    Next k
End Sub

优化关键点 #

1. 减少循环次数：用Step 58直接遍历每组起始行，循环次数从1740次降至30次
2. 批量操作行：通过Resize(58,1).EntireRow一次性选中整组58行，批量设置隐藏状态，避免逐行操作的性能开销
3. 简化逻辑赋值：直接将条件判断结果赋值给Hidden属性，替代冗余的嵌套分支
4. 变量类型优化：将NbreLigne从Integer改为Long，适配Excel最大行号范围（避免行号超过32767时溢出）

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