带有VBA的自动filter更多

我想过滤一个以上的表格中的一个特定的项目，例如，“哈利”

我的macros没有说我错了，但没有任何反应。

Sub New_Marko_for_selection() Worksheets("Sheet53").Range("A1:D4").AutoFilter,Criteria1:="Harry" end sub 

最好的祝福

Answer 1

以下是将AutoFilter应用于多个工作表的典型代码：

 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()列出了所需的表单