请选择 进入手机版 | 继续访问电脑版
楼主: gaoweijieyuzhou
352 5

[其他] Excel VBA模糊匹配问题,请大神解决,谢谢 [推广有奖]

  • 0关注
  • 0粉丝

高中生

70%

还不是VIP/贵宾

-

威望
0
论坛币
3999 个
通用积分
0.0637
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
705 点
帖子
17
精华
0
在线时间
51 小时
注册时间
2011-12-10
最后登录
2022-5-25

gaoweijieyuzhou 发表于 2022-5-12 20:33:13 |显示全部楼层
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 查看完整内容

你看看是这个意思吗?有不对的或不清楚的可以再继续讨论。
关键词:EXCEL xcel exce cel VBA

回帖推荐

lmbuaa 发表于2楼  查看完整内容

你看看是这个意思吗?有不对的或不清楚的可以再继续讨论。
已有 1 人评分经验 收起 理由
allen515 + 60 精彩帖子

总评分: 经验 + 60   查看全部评分

stata SPSS
lmbuaa 发表于 2022-5-12 20:33:14 |显示全部楼层
你看看是这个意思吗?有不对的或不清楚的可以再继续讨论。
附件: 你需要登录才可以下载或查看附件。没有帐号?我要注册
已有 1 人评分论坛币 收起 理由
giresse + 20 精彩帖子

总评分: 论坛币 + 20   查看全部评分

使用道具

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好呀,不过需要考虑客户数量变化的情况

使用道具

您需要登录后才可以回帖 登录 | 我要注册

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2022-5-29 01:26