Question

我在Excel宏中使用 autofilter 。我已经录制宏来自动过滤我的列表。我想要完成的是：

用户将在单独的表格中输入多个名称（例如，工作表＃1）
宏将根据用户输入的名称过滤工作表＃2中的列表。

基本上，我不能使用下面的代码，因为根据用户输入，数组中的列表会有所不同。

这可能吗？你可以对我的代码进行任何更改吗？

ActiveSheet.Range("$A$1:$F$786").AutoFilter Field:=1, Criteria1:=Array( _
        "a.plegaria", "anna-marie.madrid", "annie-kaye.violante", "ayla-marie.pascual", _
        "beda-jr.jacob"), Operator:=xlFilterValues

Answer 1

例如

   Dim rData                  As Range
   Dim vCriteria

   Set rData = ActiveSheet.Range("A1:F786")

   vCriteria = Application.Transpose(Sheets("Sheet2").Range("A1").CurrentRegion.Value)
   rData.AutoFilter field:=1, Criteria1:=vCriteria, Operator:=xlFilterValues

数组引用另一个工作表

1 个答案: