求助，通过关键词索引数据问题

'猫老大估计在午睡的吧，先给你凑了一个看看是否是这样子的。
Option Explicit
Sub abc()
　Dim a(1), i, j
　a(0) = [o1].Resize([o1].End(xlDown).Row).Value
　a(1) = [q1].Resize([q1].End(xlDown).Row, 2).Value
　For i = 1 To UBound(a(0))
　　For j = 1 To UBound(a(1))
　　　If InStr(a(0)(i, 1), a(1)(j, 1)) Then
　　　　a(0)(i, 1) = a(1)(j, 2): Exit For
　　　End If
　　Next
　　If j = UBound(a(1)) + 1 Then a(0)(i, 1) = vbNullString
　Next
　[p1].Resize(UBound(a(0))) = a(0)
End Sub

=iferror(lookup(,-SEARCH(Q列范围,o1),R列范围),"")