在更多工作表中使用 VBA 自动筛选

Question

我想为一个特定项目筛选多个 sheet，例如 "Harry"

我的宏没有说我错了，但什么也没发生..

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:$D").AutoFilter Field:=1, Criteria1:="Harry"
    Next sh
End Sub

注：

我指定了列
我在 Array()

在更多工作表中使用 VBA 自动筛选

Autofilter with VBA in more sheets

excel

vba

ms-office

helper