VBA - 在具有条件的列中查找所有相同的值

Question

这是我的表：

      A          B
1    YES        APPLE 
2    NO         APPLE
3    YES        PEAR
4    YES        PEAR
5    YES        ORANGE
6    NO         BANANA
7    YES        APPLE

（1）查找B行中的所有匹配值，输入'APPLE'（结果：B1 / B2 / B7）

（2a）如果B1和B2和B3 = YES，则返回“MATCH”

其他输入：

（2b）如果只找到一个结果（B5）= YES则返回“MATCH”

（2c）如果只找到一个结果（B6）= NO则返回“NO MATCH”

我如何通过VBA进行操作？

Answer 1

在C1放

=CONCATENATE(A1;B1)

在D1中

=IF(ISERROR(VLOOKUP("NO"&B1;C$1:C$7;1;FALSE));"MATCH";"NO MATCH")

只需将公式中的7数字更改为范围的最后一行。然后将两个公式复制到范围的最后一行。