Question

我正在尝试过滤工作表1上A列中的数据并同时返回多个值。我有以下代码，它们运行良好，但只能通过＆＃34; C4＆＃34;在表2中，我希望过滤器显示C4：C20中的所有内容。有什么建议吗？

Sub Macro2()
'
' Macro2 Macro
'
    Dim sInput  As String
    sInput = Sheets("Sheet2").Range("C4").Value
    Sheets("Sheet1").Range("A1:A60000").AutoFilter Field:=1, Criteria1:="=*" & sInput & "*"
End Sub

Answer 1

使用＆＃34;数组＆＃34; AutoFilter()方法的风味

Dim sInput  As Variant

sInput = Application.Transpose(Sheets("Sheet2").Range("C4:C20").Value)

Sheets("Sheet1").Range("A1:A60000").AutoFilter Field:=1, Criteria1:=sInput, Operator:=xlFilterValues

表格中的自动过滤列数据位于不同的标签上

1 个答案: