排除三个位置内容进行筛选

李红艳 · 发表于 2022-12-27 19:02

排除三个位置内容进行筛选，请看附件

排除三个数值进行筛选.rar (26.07 KB, 下载次数: 20)

高个子 · 发表于 2022-12-27 20:05

Array( "1", "10", "11", "2", "4", "5", "6", "7", "8")
只能用字典把不重复的数据求出来，然后排除那三个以后再连接起来了

zxsea_7426 · 发表于 2022-12-27 20:19

本帖最后由 zxsea_7426 于 2022-12-27 20:20 编辑

试了下，用筛选好像只能两个。

nicleyuan · 发表于 2022-12-28 09:30

本帖最后由 nicleyuan 于 2022-12-28 09:35 编辑

没有鲜花说不过去吧。

ykcbf1100 · 发表于 2022-12-28 10:22

利用工作表事件来达到筛选的目的。

先选择另一个表，再选择主表就可以了。

grf1973 · 发表于 2022-12-28 10:40

换个思路，不用字典。

nicleyuan · 发表于 2022-12-28 14:46

本帖最后由 nicleyuan 于 2022-12-28 14:48 编辑

借用了“grf1973”的代码，优化了一下。

Sub demoIII()
ActiveSheet.AutoFilterMode = False
s = Join(Application.Transpose([CL14:CL31]), " ")
For Each x In Range("ar3:ar5")
s = Replace(s, x, "")
Next
ActiveSheet.Range("a13:cm31").AutoFilter Field:=90, Criteria1:=Split(s), Operator:=xlFilterValues
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 排除三个位置内容进行筛选

评分

评分