不能按正确的范围匹配编号

sc204400 · 发表于 2022-11-19 20:30

如在余额表中B列的值为唯一能正确匹配出凭证中的编码，数据表中B列出现二个以上的相同的值时，直接取自于最后一次出现的编码导致匹配出错，如以G列的值查找数据表中B列的值，相同则选取对应A列前4位编码相同的区域为范围，再以M列的值在范围内查对数据表中A列的编码，附件中的代码如数据表中值为唯一时可以匹配出来

代码转换.rar (19.68 KB, 下载次数: 9)

582766 · 发表于 2022-11-19 20:34

祝你工作顺利，加油！

鄂龙蒙 · 发表于 2022-11-19 20:54

主要是查询条件不准确、不唯一

sc204400 · 发表于 2022-11-19 21:02

鄂龙蒙发表于 2022-11-19 20:54
主要是查询条件不准确、不唯一

是的，就是这个问题，

shiruiqiang · 发表于 2022-11-19 21:10

本帖最后由 shiruiqiang 于 2022-11-19 21:26 编辑

两个思路，一个限定死查找范围，第二个就是数组查找，for循环，第一个条件假设为x，找到了第一个x的值立即exit for ，然后从x开始查找第二个条件（i），第一个找到（i）就exit for，看目前要求就是这样

代码如图片

于箱长 · 发表于 2022-11-19 21:12

instr 字典数组循环

sc204400 · 发表于 2022-11-19 21:53

shiruiqiang 发表于 2022-11-19 21:10
两个思路，一个限定死查找范围，第二个就是数组查找，for循环，第一个条件假设为x，找到了第一个x的值立即e ...

前面的代码理解了，但是for循环后如何将结果写入sheet2的e列，可否指引一下？

shiruiqiang · 发表于 2022-11-19 22:07

sc204400 发表于 2022-11-19 21:53
前面的代码理解了，但是for循环后如何将结果写入sheet2的e列，可否指引一下？

看图片啊，sheets(2).[a1].currentregion=arr写回去啊。你运行前现清除e列

sc204400 · 发表于 2022-11-20 08:50

本帖最后由 sc204400 于 2022-11-20 08:55 编辑

shiruiqiang 发表于 2022-11-19 22:07
看图片啊，sheets(2).[a1].currentregion=arr写回去啊。你运行前现清除e列

一个新的问题，如果第13列数据为空时，就执行不出结果加上
If arr(x, 13) = "" Then
Exit For
End If 可以了

		自动登录	找回密码
密码			免费注册

[求助] 不能按正确的范围匹配编号

评分