Excel VBA加快代码以隐藏行/删除颜色

时间:2018-11-05 08:09:59

标签: excel rows

在将工作表导出为pdf之前,我正在使用以下代码删除颜色并隐藏包含多个条件的行。有什么方法可以加快此过程,因为它需要花费大量时间才能处理。尤其是当我在一本工作簿中有几张纸并将其应用于每张纸上的情况下,即“打印页面”。

Sub Color()
    Dim myRange As Range
    Dim cell As Range
    Application.ScreenUpdating = False
    Set myRange = ThisWorkbook.Sheets("Print version").Range("Print_Area")
        For Each cell In myRange
        myRange.Interior.ColorIndex = 0
        If cell.HasFormula = True And cell.Value = "" And cell.EntireRow.Hidden = False Then Rows(cell.Row).EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

0 个答案:

没有答案