VBA实现三条件，其中两条件并列的筛选

九天神暗

    求高手指点，这里已经实现了两条件同时满足的筛选，现在想要实现（三条件，但条件一和条件2条件3都并列）筛选出1月份，张1在第二列出现和在第三列出现的都筛选出来，如图如附件，宏2基本已经实现了，但我想要的是将3个条件输入到3个单元格，执行宏就实现，不需要条件表辅助。

陆离Lowry

这不是高级筛选吗？

demonimissyou

用循环+判断，应该会更快
Sub shaixuan()
Dim i, j, k
i = [A65536].End(xlUp).Row
Cells(4, 4) = "月份": Cells(4, 5) = "A岗": Cells(4, 6) = "B岗"
For j = 5 To i
If Cells(j, 1) = "1" Then
If Cells(j, 2) = "张1" Or Cells(j, 3) = "张1" Then
k = k + 1
Cells(j, 1).Copy (Cells(k + 4, 4))
Cells(j, 2).Copy (Cells(k + 4, 5))
Cells(j, 3).Copy (Cells(k + 4, 6))
End If
End If
Next
End Sub

ivccav

看不明白你的问题，你看是这样的吗？


VBA据3条件筛选（条件1与条件2，条件3并列）.zip (23.22 KB, 下载次数: 14)

2023-2-6 17:06 上传

点击文件名下载附件

九天神暗

demonimissyou 发表于 2023-2-6 15:32
用循环+判断，应该会更快
Sub shaixuan()
Dim i, j, k

谢谢！感谢您提供的这个选择，谢谢了。

九天神暗

ivccav 发表于 2023-2-6 16:36
看不明白你的问题，你看是这样的吗？

谢谢！这也是一个不错的方法。