excel - Excel宏“Entirerow.Hidden”如何让它运行得更快？

Question

我在一个更大的工作簿中有一个模块，可以在单元格范围“B6-B125”中搜索“N/A”（不可用），如果是，则隐藏整行。另外，它会根据单元格“D1”更改工作表的名称。但它运行缓慢。而且因为我有另一个模块在多张纸上运行这个模块，所以它需要更快。有人对此有什么建议吗？

 Sub Update_Kitchen()
Application.ScreenUpdating = False
 
        ThisWorkbook.Unprotect "7300"
        
            Set Target = Range("D1")
            If Target = "" Then Exit Sub
            Application.ActiveSheet.Name = VBA.Left(Target, 31)
            
        ThisWorkbook.Protect "7300"
         

Dim xRg As Range
   
        
        For Each xRg In Range("B6:B125")
            If xRg.Value = "N/A" Then
                xRg.EntireRow.Hidden = True
         
            Else
                xRg.EntireRow.Hidden = False
                xRg.EntireRow.AutoFit
               
            End If
        Next xRg
    
    Range("K4").Value = DateTime.Now
    
Application.ScreenUpdating = True
End Sub

标签： excelvba