如何通过查找符合输入的分类条件，输出是否符合的函数。

supsong

苹果 = 1

煎饼 = 1

雪梨=0;西瓜=1;床=1;哈密瓜=0;砧板=1;

比如表中有上面的东西，包括了我喜欢的和不喜欢的

比如我在sheet2中输入“我喜欢的”，能匹配到“                        苹果 = 1”和“哈密瓜=1”和“雪梨=1”，就在sheet3中输出有我喜欢的，否则就把所有不符合的列出来，比如这里列出“哈密瓜=0，雪梨=0不符合”

有没有办法通过vba写出来呀？这两天新学vba，好多东西不知道怎么用。这个是不是能用字典？