VBA当中如何实现 判断B列的关键字是否在A里边是否存在

请问用VBA当中如何实现 判断B列的关键字是否在A里边是否存在，如果存在的话就判断这些关键字各占有多少个，并且A列当中没有在B列中列出的就算成其它类型

使用Like
If "abc" Like "*b*" Then
   ... ' abc包含b
End If