展开全部
第一种办法:
在B2输入公式
=IF(A1<>"",IFERROR(INDEX(A表!B:B,MATCH("*"&B表!A1&"*",A表!I:I,)),""),"")
往下拉,32313133353236313431303231363533e4b893e5b19e31333335323965如果数据很多,会影响打开工作表的速度
第二种办法:
按ALT+F11键打开VBA编辑器
双击左边的B表,复制如下代码:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Sheets("A表")
For Each trng In Target
For i = 2 To .[I65536].End(xlUp).Row
If trng.Value = "" Then trng.Offset(0, 1).Value = ""
If .Cells(i, 9).Value Like "*" & trng.Value & "*" And trng.Value <> "" Then
trng.Offset(0, 1).Value = .Cells(i, 2).Value: Exit For
End If
Next
Next
End With
End If
End Sub
这个好处是不用每次拖公式,而且如果数据量多,不会因为公式占用单元格,导致文件速度变慢!