Vba 自动筛选其他选项卡上表中的数据列

我正在尝试过滤第1页A列中的数据，并同时返回多个值。我有下面的代码，工作非常好，但只搜索表2中的“C4”，我希望过滤器显示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

使用

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

---

谢谢你的快速回复。我试过代码，但它不喜欢最后一行，有什么建议吗？@RobertG，你看完了吗？祝你好运，在翻阅了我的一些旧表格后，我终于想出了一个有效的代码。最后一件事是让它过滤掉空白，也许你可以看看。尺寸标准值（100）作为字符串尺寸iRow作为整数iRow=0，而工作表（“查询”）。单元格（iRow+1，2）“尺寸标准值（iRow）=工作表（“查询”）。单元格（iRow+1，4）iRow=iRow+1 Wend工作表（1）。范围（“J1:J3000”）。自动筛选字段：=10，标准1:=标准值，运算符：=xlFilterValues