如何让判断条件后隐藏行，更快速？

swjia8315

需要判断每行第一列是否为“/”，如果是，则隐藏该行

1. Private Sub test()
   
2. 
   
3. For a = 1 To 100
   
4.     If Cells(a, "A").Value = "/" Or Cells(a, "A").Value = "同比" Then
   
5.         Rows(a).EntireRow.Hidden = True
   
6.     End If
   
7. Next
   
8. 
   
9. End Sub

复制代码

我用这个代码一行行操作，结果隐藏速度特别慢，要半分钟
请问如何优化代码？

附件可供测试

x-xx-xx

数组  一次            

wxxydl

Sub test()
    Dim rng As Range
    For a = 1 To 100
        If Cells(a, "A").Value = "/" Or Cells(a, "A").Value = "同比" Then
            If rng Is Nothing Then
              Set rng = Rows(a)
            Else
              Set rng = Union(rng, Rows(a))
            End If
        End If
    Next
   rng.EntireRow.Hidden = True
End Sub

swjia8315

x-xx-xx 发表于 2023-12-29 22:39
数组  一次

请问如何操作

swjia8315

wxxydl 发表于 2023-12-29 22:54
Sub test()
    Dim rng As Range
    For a = 1 To 100

感谢！感谢！感谢！感谢！感谢！感谢！

沈默00

要不用union组合起来，要不用数组

沈默00

尽量少用单元格的代码，数据多了就会卡