作者ssis (Freesky)
看板Office
标题[算表] VBA自行输入筛选条件[包含於]的问题
时间Sun Jul 18 01:44:07 2021
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1626543851.A.879.html
1F:→ soyoso: "=*X*" 改为 "*" & X & "*" 或 "=*" & X & "*" 07/18 06:09
2F:推 ms0428: 同版主,另外可加 like 07/18 09:43
3F:→ ssis: 太感谢了 07/18 14:29