急求！EXCEL表格1的A列单元格中部分内容，如果在表格2的A列单元格中有包含，则显示对应单元格名称！

Sub aa()
sh1row = Sheets("表1").[A65000].End(xlUp).Row '表1 A列末行的行数
sh2row = Sheets("表2").[A65000].End(xlUp).Row '表2 A列末行的行数
Set Arng = Sheets("表1").Range("A1:B" & sh1row)
Set Brng = Sheets("表2").Range("A1:B" & sh2row)
For i = 4 To sh2row
    For j = 4 To sh1row
        If Arng(j, 1) Like "*-" & Mid(Brng(i, 1), InStr(1, Brng(i, 1), "/") + 1) & "-*" Then
            Arng(j, 2) = Arng(j, 2) & Brng(i, 1).Address & ","
            Brng(i, 2) = Brng(i, 2) & Arng(j, 1).Address & ","
        End If
    Next
Next
End Sub

"A"&LOOKUP(,0/(FIND(MID(A4,6,FIND("-",A4,7)-6),表2A4:A13)),ROW(A4:A13))

请将文件发到397525753@qq.com，我看一下能不能帮你。

用vba可以实现