vba - 优化隐藏列的速度

Question

我编写了一个简短的脚本，用于根据单元格值隐藏列。

该脚本可以工作，但速度非常慢，并且在列数较大(例如 > 200 列)时经常出现 Excel 错误。

Sub Bouton_hidingColumns()
Dim NumColonne As Integer

For NumColonne = Range("I11").Column To Range("IH11").Column Step 3
    If WorksheetFunction.Sum(Range(Cells(11, NumColonne), Cells(119, NumColonne))) = 0 Then
         Columns(NumColonne).Resize(, 3).Hidden = True
    End If
Next NumColonne

End Sub

列数较多时脚本失败的示例:

Impossible de définir la propriété Hidden de la classe Range

(用英语来说，这是无法设置范围类的隐藏属性)

有人可以提出解决方案吗？预先感谢您的帮助。

Answer 1

测试然后隐藏在一次运行中对我来说没问题

Sub OneWay()

Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range

Set rng1 = Range("I11:IH119")
For Each rng2 In rng1.Columns
    If rng2.Column Mod 3 = 0 Then
       If Application.Sum(rng2) = 0 Then
          If Not rng3 Is Nothing Then
              Set rng3 = Union(rng3, rng2.Resize(, 3))
          Else
               Set rng3 = rng2.Resize(, 3)
          End If
       End If
    End If
Next

If Not rng3 Is Nothing Then rng3.EntireColumn.Hidden = True

End Sub