[算表] VBA自行輸入篩選條件[包含於]的問題
軟體: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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.163.101.54 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1626543851.A.879.html
→
07/18 06:09,
2年前
, 1F
07/18 06:09, 1F
推
07/18 09:43,
2年前
, 2F
07/18 09:43, 2F
→
07/18 14:29,
2年前
, 3F
07/18 14:29, 3F