Excel VBA 宏 - 循环工作表和清除行

Question

我试图让这个宏循环遍历工作簿中的所有工作表，然后过滤并清除一些单元格..当我没有启用宏的过滤器/清除单元格部分时，循环工作但是一旦我取消注释过滤器& 清除宏的一部分，宏只会过滤和清除活动表中的单元格，我哪里出错了？

非常感谢任何帮助！

Sub MovethroughWB()
    Dim ws As Worksheet
    For Each ws In Sheets 'This statement starts the loop
        If ws.Name <> "Exclusions" Then 'Exclude this sheet from the loop
            Range("D2:J2").Select
            Selection.AutoFilter
            ActiveSheet.Range("$D$2:$J$200").AutoFilter Field:=7, Criteria1:="<>#N/A", _
                Operator:=xlAnd
            Range("D3:J200").Select
            Selection.SpecialCells(xlCellTypeVisible).Select
            Selection.ClearContents
        End If
    Next ws
End Sub

Answer 1

1. 为工作表中的每个对象（ Range 、 Cells 、 Columns 、 Rows等）引用工作表

2. 停止使用.Select （ 如何避免在 Excel VBA 中使用 Select ）。

并且您的代码变得可靠：

Sub MovethroughWB()
    Dim ws As Worksheet
    For Each ws In Sheets 'This statement starts the loop
        If ws.Name <> "Exclusions" Then 'Exclude this sheet from the loop
            ws.Range("D2:J2").AutoFilter
            ws.Range("$D$2:$J$200").AutoFilter Field:=7, Criteria1:="<>#N/A", Operator:=xlAnd
            ws.Range("D3:J200").SpecialCells(xlCellTypeVisible).ClearContents
        End If
    Next ws
End Sub