如何以数组为关键字查找

lan8930

如题，定义了一个固定的数组，是公司的简称，或者说是公司名称的关键字。B列为公司全称，B列满足 like  *关键字*，要求，在B列中查找含这些关键字的公司名字。返回A列的值。
Sub test()
Dim arr，n
arr = Array("C建筑", "G餐饮", "A文化")
For n = 1 To Range("B1").End(xlDown).Row
if

End Sub


写到这里不会写了。求助，非常感谢
不会贴图片，叫我上传图片地址，啥意思呀，不会。只能够手动打在下面了

A                   B
1       广西A燃气有限公司
2       广西B汽车有限公司
3       广东C建筑有限公司
4      广东G餐饮文化有限公司
5      广西A文化有限公司

cutecpu

Sub test()
   arr = Array("C建筑", "G餐饮", "A文化")
   brr = [a1].CurrentRegion
   For i = 2 To UBound(brr)
      For k = 0 To UBound(arr)
         If brr(i, 2) Like "*" & arr(k) & "*" Then
            n = n + 1
            brr(n, 1) = brr(i, 1)
         End If
      Next
   Next
   [c1].Resize(n) = brr
End Sub