软件:EXCEL VBA
版本:2019
我想建立一个筛选器，可以让我“自行输入”筛选的文字
筛选后，把值另贴到一张新表
但我筛选的条件是“包含于”，我发现这个条件好像没办法用变量设定？
因为“包含于”的语法是"=*筛选条件*"
这样我用inputbox自行输入，就会多2个引号坏掉> <
后来换成读储存格，好像也不行
想问大大们有没有解？
程式码如下：
X = Sheets("筛选器").Range("a1") '筛选条件
startRow = 1 '开始列
endRow = 1 '结束列
'选取欲筛选工作表
Worksheets("计算式").Select
'取得最后一列之列数
workRow = Range("a:a").End(xlDown).Row
'筛选器
Sheets("计算式").Range("a1:e" & workRow).AutoFilter Field:=3, C
riteria1:="=*X*"
'复制筛选内容至新工作表
Sheets("计算式").Range("a2:e1000").Copy
Worksheets(Sheets.Count).Range("b" & endRow + 1)
startRow = endRow + 1
endRow = Worksheets(Sheets.Count).Range("b:b").End(xlDown).Row
For i = startRow To endRow
Worksheets(Sheets.Count).Cells(i, 1) = Sheets("计算式
").Name
Next
Worksheets(Sheets.Count).Columns.AutoFit

"=*X*" 改为 "*" & X & "*" 或 "=*" & X & "*"

同版主，另外可加 like

太感谢了