[已解决]用VBA代码实现多条件筛选

chmmm · 发表于 2014-9-16 21:22

对于多条件筛选，发现有很多公式实现，但领导要求编个VBA脚本，弄个快捷键直接跑出来==。我的方法是借用excel的筛选功能，先录了个宏再修改代码。关键问题如下：
1.excel的筛选功能同时只能筛两个条件，多条件就只能反复调用。
2.对于筛选出的数据要在空白列进行标注，我就只能循环判断单元格是否是被隐藏的，再标注。
结果导致运行速度较慢，有时候还会筛不出来，不晓得是啥原因。

求各位大师帮忙看看，能不能通过更简便稳定的方法实现，比如数组或者数据字典？十分感谢。

SalesReport1.rar (23.51 KB, 下载次数: 592)

dsmch · 发表于 2014-9-16 21:50

Sub Macro1()
Dim arr, brr, i&
If [a1] = "产品" Then [a:a].Insert
arr = Range("b1:g" & Cells(Rows.Count, "g").End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
If (InStr(arr(i, 1), "蒙古") Or InStr(arr(i, 1), "上海") Or InStr(arr(i, 1), "意大利") Or InStr(arr(i, 1), "法国")) _
And (InStr(arr(i, 2), "AN") Or InStr(arr(i, 2), "BO")) Then brr(i, 1) = "重要"
Next
Range("a1").Resize(UBound(brr)) = brr
End Sub

复制代码

chmmm · 发表于 2014-9-16 22:11

dsmch 发表于 2014-9-16 21:50

非常感谢，就是这样的。学习到了。

chmmm · 发表于 2014-9-16 23:12

dsmch 发表于 2014-9-16 21:50

再问一下，如果是要“不包含”的话是用IIf吗？像这样？ IIf(InStr(arr(i, 2), "TO") > 0, 0, 1))
还有，如果中间用And连接，为什么（2 And 1）判断出来是0啊？那么包含“AN”且不包含“TO”应该怎么表述呢？谢谢。

dsmch · 发表于 2014-9-17 04:06

1、不包含InStr(arr(i, 2), "TO") = 0
2、InStr(arr(i, 2), "AN") > 0 and InStr(arr(i, 2), "TO") =0

chmmm · 发表于 2014-9-17 07:18

dsmch 发表于 2014-9-17 04:06
1、不包含InStr(arr(i, 2), "TO") = 0
2、InStr(arr(i, 2), "AN") > 0 and InStr(arr(i, 2), "TO") =0

非常感谢。

FuTX9999 · 发表于 2016-6-10 13:47

dsmch 发表于 2014-9-16 21:50

老师你好！请问在你已解决完的这个帖子中，如何实现筛选条件的自动读取（把要筛选的条件输入在一个固定的区域，比如工作表“要求”中的（k5:l10)，然后VBA程序能读取这些条件要）？

belinda0415 · 发表于 2022-4-15 10:39

相同的困惑

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