表1为
1苹果
2香蕉
....
9999西瓜
表2为
1
2
...
9999
想把表2中的数字批量替换成表1中的水果，最快捷的方法是什么

表二中的数字的是不规律的，有的一个单元格里可能有1、3、9等多个编号

你这个表1中的 1苹果 是在一个单元格还是两个单元格，在表2中又是在一个单元格还是两个单元格？说这些不如上张图就全看明白了。

没看明 请上图模拟数据和想达到的效果

Option Explicit
Sub abc()
　Dim a, i, j, s, t, d
　a = [a1].CurrentRegion.Resize(, 2).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 3 To UBound(a)
　　d(CStr(a(i, 1))) = a(i, 2)
　Next
　a = [d1].CurrentRegion.Offset(1).Resize(, 2).Value
　ReDim b(1 To UBound(a) - 1, 1 To 1)
　For i = 1 To UBound(a) - 1
　　t = Split(a(i, 2), "、")
　　For j = 0 To UBound(t)
　　　If d.exists(t(j)) Then s = d(t(j)) Else s = t(j)
　　　b(i, 1) = b(i, 1) & "、" & s
　　Next
　　b(i, 1) = Mid(b(i, 1), 2)
　Next
　[f2].Resize(UBound(b)) = b
End Sub

@阿良 大神：如上表，单元格内只有一个需要替换的内容，是不是要简单点，函数是什么，谢谢您！