如何在不使用循环的情况下返回VBA中的一系列单元格？

假设我有一个excel传播表,如下所示:

col1   col2
------------
dog1   dog
dog2   dog
dog3   dog
dog4   dog
cat1   cat
cat2   cat
cat3   cat

我想根据"狗"或"猫"返回一系列细胞(dog1,dog2,dog3,dog4)或(cat1,cat2,cat3)

我知道我可以循环检查一个接一个,但是在VBA中是否还有其他方法,所以我可以一次性"过滤"结果？

也许Range.Find(XXX)可以提供帮助,但我只看到一个单元格而不是一系列单元格的示例.

请指教

问候