excel - 如何在 Excel 的每个工作表中隐藏零行

Question

我想隐藏 B 列和 C 列中值为零的行。我的代码有效，但仅在活动工作表上有效。我希望它遍历工作簿中的所有工作表。任何帮助表示赞赏

Private Sub CommandButton1_Click()
Dim M As Long, LastRow As Long
Dim ws As worksheet

For Each ws In ActiveWorkbook.Worksheets
LastRow = ws.Range("E65536").End(xlUp).Row
For M = LastRow To 7 Step -1
If Range("B" & M).Value = 0 And Range("C" & M).Value = 0 Then
Range("B" & M).EntireRow.Hidden = True
End If
Next M
Next ws
End Sub

Answer 1

激活工作表。问题是 Range 正在处理当前的活动工作表。如果你使用 ws. infromt 范围或激活工作表，如下所示。

For Each ws In ActiveWorkbook.Worksheets

添加

ws.Activate

Answer 2

我发现这个关于这个主题，我希望它有帮助：ExtendOffice

Sub Hide_rows()
Dim LastRow As Long
Dim Rng As Range
LastRow = Range("A65536").End(xlUp).Row '
Set Rng = Range("A1:A" & LastRow) '
Application.ScreenUpdating = False
For Each cell In Rng
If cell.Value = "0" Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.ScreenUpdating = True
End Sub

Answer 3

您需要将 Range 指定为工作表的成员，如下所示：

Private Sub CommandButton1_Click()
   Dim M As Long, LastRow As Long
   Dim ws As worksheet

   For Each ws In ActiveWorkbook.Worksheets
       LastRow = ws.Range("E65536").End(xlUp).Row
       For M = LastRow To 7 Step -1
           ' Notice how 'ws' has been added before range
           If ws.Range("B" & M).Value = 0 And ws.Range("C" & M).Value = 0 Then
               ws.Range("B" & M).EntireRow.Hidden = True
           End If
       Next M
   Next ws
 End Sub