在将工作表导出为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