急需帮忙，如何实现关键字搜索并统计

急需帮忙，怎么实现关键字搜索并统计
请问用VBA当中如何实现 判断B列的关键字是否在A里边是否存在，如果存在的话就判断这些关键字各占有多少个，并且A列当中没有在B列中列出的就算成其它类型。如下图：

[解决办法]
使用Like
If "abc" Like "*b*" Then
   ... ' abc包含b
End If