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 AND B2 AND 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 數字更改為范圍的最后一行即可。 然后將兩個公式復制到范圍的最后一行。