Excel VBA，更新特定工作表，不仅仅是活动工作表

Question

我创建了一个脚本，在行的“ - ”行中隐藏了活动工作表中的行。我想将其应用于其他工作表（即Sheet-ABC，Sheet-DEF）。我尝试使用数组，但不成功。

任何帮助表示赞赏。

Sub hideRows() 
Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 
Application.DisplayAlerts = False 


Dim cell, cell2 As Range, hRws As Range 
Set Rng = Sheet15.Range("A52:L359") 

Rng.EntireRow.Hidden = False 

For Each cell In Range("A52:L359").SpecialCells(xlBlanks) 
If cell = "-" And cell.Offset(-1, 0) = "-" Then 
If hRws Is Nothing Then 
Set hRws = Range(cell, cell.Offset(1, 0)) 

Else 
Set hRws = Union(hRws, Range(cell, cell.Offset(1, 0))) 
End If 
End If 
Next 

If Not hRws Is Nothing Then hRws.EntireRow.Hidden = True 

Application.Calculation = xlCalculationAutomatic 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 
Application.EnableEvents = True 

End Sub 

Answer 1

你可以在for循环中调用你的hideRows（）方法。事情是这样的：

Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets hideRows() Next