运行行列隐藏宏时。反映速度很慢，如何解决

jordanlive

运行以下隐藏程序时，速度很慢，如何提升速度请高手指点
Sub btHide()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "zjx"
    Dim i As Integer
        For i = 6 To 65
        If Cells(i, 3).Value = 0 Then
        ActiveSheet.Rows(i).Hidden = True
        End If
    Next i
    ActiveSheet.Protect "zjx"
    Application.ScreenUpdating = True
End Sub

Sub btUnhide()
ActiveSheet.Unprotect "zjx"
    ActiveSheet.Rows().Hidden = False
    ActiveSheet.Protect "zjx"
End Sub
Sub 行列隐藏()
     Application.ScreenUpdating = False
     ActiveSheet.Unprotect "zjx"
     Dim i As Integer
        For i = 70 To 142
        If Cells(i, 4).Value = 0 And Cells(i, 9) = 0 Then
           Cells(i, 1).EntireRow.Hidden = True
        Else
           Cells(i, 1).EntireRow.Hidden = False
        End If
    Next i
        ActiveSheet.Protect "zjx"
  Application.ScreenUpdating = True
End Sub

limonet

无法数组、集合、字典、结构化等，只能循环，快不了。

feilanga

1. Sub 隐藏A列数值为0的行()
   
2.     Dim 目标表 As Worksheet, 目标行 As Range, 当前行 As Range
   
3.     Dim 行数 As Long, i As Long
   
4.     Set 目标表 = ActiveSheet
   
5.     行数 = 目标表.Cells(目标表.Rows.Count, 1).End(xlUp).Row
   
6.     For i = 1 To 行数
   
7.         If 目标表.Cells(i, 1).Value = 0 Then
   
8.             If 目标行 Is Nothing Then
   
9.                 Set 目标行 = 目标表.Rows(i)
   
10.             Else
    
11.                 Set 目标行 = Union(目标行, 目标表.Rows(i))
    
12.             End If
    
13.         End If
    
14.     Next i
    
15.     If Not 目标行 Is Nothing Then 目标行.Hidden = True
    
16. End Sub

复制代码

仅供参考

ykcbf1100

改一下，速度会快一些，实测通过

1. Sub 行列隐藏()
   
2.     Application.ScreenUpdating = False
   
3.     Set Rng = Nothing
   
4.     With ActiveSheet
   
5.         .Unprotect "zjx"
   
6.         r = .Cells(Rows.Count, 4).End(3).Row
   
7.         .Rows("1:" & r).Hidden = False
   
8.         arr = .UsedRange
   
9.         For i = 70 To 142
   
10.             If Len(arr(i, 4) & arr(i, 9)) = 0 Then
    
11.                 If Rng Is Nothing Then
    
12.                     Set Rng = .Cells(i, 4)
    
13.                 Else
    
14.                     Set Rng = Union(Rng, .Cells(i, 4))
    
15.                 End If
    
16.             End If
    
17.         Next i
    
18.         If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
    
19.         .Protect "zjx"
    
20.     End With
    
21.     Application.ScreenUpdating = True
    
22. End Sub
    
23. 
    

复制代码

3190496160

不要频繁的隐藏，用union建立一个聚合，然后一次性隐藏试试看看呗

边缘码农

当需要隐藏的行数较少的时候，用这个代码是可以的：


经测试，当前情况下，当lh的长度是83时，没问题，86时出现错误提示：

考虑到楼主要进行大量隐藏，这种方法行不通。
要提高速度，就要减少对工作表的操作次数。从这个角度想办法。

边缘码农

楼主试试这样。

边缘码农

65改成600，正常运行。

jordanlive

ykcbf1100 发表于 2024-7-26 09:44
改一下，速度会快一些，实测通过

程序用上不对，意思是将从69到142行满足4列和9列为空白的行进行隐藏

ykcbf1100

jordanlive 发表于 2024-7-26 16:52
程序用上不对，意思是将从69到142行满足4列和9列为空白的行进行隐藏

主要是你没上附件，如果上附件，会调试好再上传的。