Excel VBA模糊匹配问题，请大神解决，谢谢

附件总共有三张工作表，表1为原始表格，表2为需要从表1查询的供应商列表，表3为最后应该得到的结果。（VBA代码不用填充黄色）

要求：对表1中的摘要列（G列），在表2的客户简称列（C列）中进行模糊查询，把查询到的供应商添加到L列，并增加标题“供应商”，每个供应商应与每个摘要中含有的供应商一一对应。最后结果是要求提供VBA代码即可。

注意：1.表3中的最后结果是用EXCEL函数得到的，用VBA应与其得到同一结果。
2.实际情况的表1和表2，尤其是表2的客户档案行数是不固定的，但格式（即每一列都是固定内容）是一样的，所以只需要能根据每次行数的不同，能自动的选取表2的客户简称列（C列）从头到底的内容。代码可以使用类似如下的形式：
Dim LastRow As Long
LastRow = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row

如果附件下载不了，链接如下：链接: https://pan.baidu.com/s/1zOasb7x7znxf5pWrbf2xLw?pwd=vz2t
提取码: vz2t

你看看是这个意思吗？有不对的或不清楚的可以再继续讨论。

lmbuaa 发表于 2022-5-12 20:33
你看看是这个意思吗？有不对的或不清楚的可以再继续讨论。

谢谢帮助，唯一一点就是我的客户列表一版都几万行，所以运行会稍微慢一点，这点确实不如公式快，不过功能是完全可以的。

gaoweijieyuzhou 发表于 2022-5-13 16:13
谢谢帮助，唯一一点就是我的客户列表一版都几万行，所以运行会稍微慢一点，这点确实不如公式快，不过功能 ...

用公式是怎么做的，应该做不出VBA的结果吧

lmbuaa 发表于 2022-5-13 16:28
用公式是怎么做的，应该做不出VBA的结果吧

可以的，用的是=IFERROR(LOOKUP(1,0/FIND('2.客户档案 '!$C$2:$C$24,$G2),'2.客户档案 '!$C$2:$C$24),"")这个公式，所以我一开始想直接就类似于worksheet function vlookup那样的处理，但是VBA好像不能对FIND函数是错误的值进行定义，永远都是类型错误，所以就不知道如何去模糊匹配了。

gaoweijieyuzhou 发表于 2022-5-13 16:44
可以的，用的是=IFERROR(LOOKUP(1,0/FIND('2.客户档案 '!$C$2:$C$24,$G2),'2.客户档案 '!$C$2:$C$24),"") ...

用公式肯定比VBA好呀，不过需要考虑客户数量变化的情况