使用VBA自动过滤更多张纸

Question

我想为一个特定项目过滤一张以上的纸，例如“哈利”

我的宏并没有说我错了，但是什么也没发生。

Sub New_Marko_for_selection()

Worksheets("Sheet53").Range("A1:D4").AutoFilter,Criteria1:="Harry"

end sub

最好的祝福

Answer 1

以下是将自动筛选应用于多个工作表的典型代码：

Sub New_Marko_for_selection()
    Dim sh As Worksheet

    For Each sh In Sheets(Array("Sheet1", "Sheet3"))
        sh.Range("$A$1:$D$4").AutoFilter Field:=1, Criteria1:="Harry"
    Next sh
End Sub

注意：

• 我指定了专栏
• 我在Array()列出了所需的工作表