VBA如何做到对位匹配？

jktops

	A	B	C	D	E	F	G
1	7	9	11		3	2	3
2	4	8	12		15	13	11
3	14	3	1		6	3	1
4	7	10	9		7	7	5
5	8	12	5		10	14	20
6	11	7	6		6	2	2
7	10	2	4		9	10	11
8	7	3	20		7	3	8
9					15	9	21
10					21	6	4
11					.	..	..

以ABC三列作条件对EFG三列查找匹配个数，必须A对E、B对F、C对G这种方式查找匹配。

而：
Application.Match(ar(j, k), er, 0)
这函数匹配查找不分位置，如何能对位匹配？

蓝桥玄霜

循环对比即可。

LIUZHU

请说明匹配结果要什么，是匹配位置，还是直接匹配值？另外输出样式是什么？

jktops

LIUZHU 发表于 2023-1-8 22:28
请说明匹配结果要什么，是匹配位置，还是直接匹配值？另外输出样式是什么？

需要对位匹配个数
以行为单位输出对位匹配个数
如第三行B3与F3匹配，输出1
没有对位匹配则不用输出

taller

jktops

taller 发表于 2023-1-9 02:28

谢谢，上面自己交待有些模糊，抱歉
题目愿意是必须（A1：C8）对（E1：G10）复式对位（列）查找匹配
即第一行7,9，11对（E1：G10）查找一遍，到下一行，如此循环。

liulang0808

jktops 发表于 2023-1-9 07:55
谢谢，上面自己交待有些模糊，抱歉
题目愿意是必须（A1：C8）对（E1：G10）复式对位（列）查找匹配
即 ...

建议楼主上传附件。模拟说明问题

grf1973

是这个意思吗

taller

jktops

grf1973 发表于 2023-1-9 09:52
是这个意思吗

谢谢，计算原理应对的，不过我的意思是以B2：D9作为条件对F2：H101数据区查找，你的代码两者反了。
所以第一行结果应是1，第二行也是1。