0

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

  1. 用户将在单独的工作表中输入多个名称(例如 Worksheet #1)
  2. 宏将根据用户输入的名称过滤位于 Worksheet #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
4

1 回答 1

0

例如

   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
于 2013-07-26T09:42:00.253 回答