VBA程序实现VLOOKUP功能

0青春无悔0

今天在使用VLOOKUP公式的时候发现一个问题，请看下图。


QQ截图20180605153705.jpg (63.58 KB, 下载次数: 0)
下载附件  保存到相册

2018-6-6 16:28 上传

A列的原厂号码中每个单元格都包含4B0.121.251，有的单元格中的号码在4B0.121.251后面还有1个或者2个英文字母，后面加上不同的字母对应了完全不同的产品编号。
当我用VLOOKUP公式找4B0.121.251对应的产品编号的时候，系统是从上到下依次检索，输出了产品编号1002-AU101，但实际正确的是1002-AU149；同理找4B0.121.251A的时候，输出了产品编号1002-AU114，但实际正确的是1002-AU155。

如果1个单元格里原厂号码有2个或以上，每个号码之间都是用换行键隔开的。咨询了EXCEL函数与公式里的大神们，暂时还没有解决办法。
我在想有没有可能用VBA程序来解决这个问题，麻烦大神们帮我看一下，谢谢！

jiangxiaoyun

将原始数据拆分，再用vlookup精确查找就可以了。这么搞数据纯属麻烦。

jiangxiaoyun

Sub vv()
    Set d = CreateObject("scripting.dictionary")
    Dim arr
    arr = [a2].CurrentRegion
    For i = 2 To UBound(arr)
        s = Split(arr(i, 1), Chr(10))
        For j = 0 To UBound(s)
            d(s(j)) = arr(i, 2)
        Next
    Next
   
    For i = 3 To Cells(Rows.Count, 4).End(xlUp).Row
        Cells(i, 5) = d(Cells(i, 4).Value)
    Next
End Sub

0青春无悔0

jiangxiaoyun 发表于 2018-6-6 17:11
Sub vv()
    Set d = CreateObject("scripting.dictionary")
    Dim arr

这个可以，谢谢！