Excel VBA：聪明地使用自动筛选

Question

So, here's my question...

I have a column with strings looking like this:

"2,3" "1,2" "2" "3,22,1" "32,5"

Now, what I would like to do is to find a way (without writing my own function for it) to filter everything that doesn't contain "2" (the rows with "32" or "22" need to be filtered out).

So, for example, by keeping only "2", from the list above, I would like to get: "2,3" "1,2" "2"

I am now filtering using: 1. contains "2," OR contains ",2" OR equals "2"

Unfortunately, "3,22,1" will be kept by the first two filters and "32,5" is kept by the second one.

Any ideas on how to do this with the filter function? Like I said, I can write a function for it, but I'd keep my code minimal and learn how to use VBA better, instead.

Thank you in advance! Riccardo

Answer 1

I'm still kind of unsure what you want to remove and what to keep, but using your array of criteria, how about this:

Sheets("Sheet1").Range("A:A").AutoFilter Field:=1, Criteria1:=Array("2,", ",2","2",",2,"),_ 
Operator:=xlFilterValues

Worth noting it's a more foolproof way when writing macros to refer to the sheet directly otherwise they can occasionally get lost in the script :)