关键字查找并输出

cqclient

如图所示，目标列包含条件列，但并不是每行对应，想在输出列依次输出关键字，有几个就输出几个，谢谢!!
这种只能用vba做吧，请见附件。

leirongqin

请参考附件

zxsea_7426

gwjkkkkk

Sub TEST()
    Dim arr, vResult, i&, j&, iColSize&
    Dim regEx As Object, strPat$, vExMatch
   
    Set regEx = CreateObject("Vbscript.RegExp")
    strPat = Join(Application.Transpose(Range([B2], Cells(Rows.Count, "B").End(xlUp))), "|")
    arr = Range([A2], Cells(Rows.Count, "A").End(xlUp))
    ReDim vResult(1 To UBound(arr), 1 To 100)
   
    With regEx
      .Global = True
      .Pattern = strPat
      For i = 1 To UBound(arr)
         If .TEST(arr(i, 1)) Then
            Set vExMatch = .Execute(arr(i, 1))
            For j = 0 To vExMatch.Count - 1
                vResult(i, j + 1) = vExMatch(j)
            Next j
            If j > iColSize Then iColSize = j
         End If
      Next i
    End With
    [C2].Resize(UBound(vResult), iColSize) = vResult
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。