全部版块 我的主页
› 论坛 › 提问 悬赏 求职 新闻 读书 功能一区 › 悬赏大厅 › 求助成功区
Excel VBA模糊匹配问题，请大神解决，谢谢
gaoweijieyuzhou
1026 5
2022-05-12
悬赏 610 个论坛币 已解决
附件总共有三张工作表，表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 查看完整内容

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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
lmbuaa
2022-5-12 20:33:14
你看看是这个意思吗？有不对的或不清楚的可以再继续讨论。
附件: 您需要登录才可以下载或查看附件。没有帐号？我要注册
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

gaoweijieyuzhou
2022-5-13 16:13:47
lmbuaa 发表于 2022-5-12 20:33
你看看是这个意思吗？有不对的或不清楚的可以再继续讨论。
谢谢帮助，唯一一点就是我的客户列表一版都几万行，所以运行会稍微慢一点，这点确实不如公式快，不过功能是完全可以的。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

lmbuaa
2022-5-13 16:28:52
gaoweijieyuzhou 发表于 2022-5-13 16:13
谢谢帮助，唯一一点就是我的客户列表一版都几万行，所以运行会稍微慢一点，这点确实不如公式快，不过功能 ...
用公式是怎么做的，应该做不出VBA的结果吧
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

gaoweijieyuzhou
2022-5-13 16:44:37
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函数是错误的值进行定义，永远都是类型错误，所以就不知道如何去模糊匹配了。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

lmbuaa
2022-5-17 09:58:36
gaoweijieyuzhou 发表于 2022-5-13 16:44
可以的，用的是=IFERROR(LOOKUP(1,0/FIND('2.客户档案 '!$C$2:$C$24,$G2),'2.客户档案 '!$C$2:$C$24),"") ...
用公式肯定比VBA好呀，不过需要考虑客户数量变化的情况
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群