軟體: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