VBA数据字典去重求和匹配

wb5992

1、对A列字符相同，则对相同行求和，如：上海CC=-54
2、先对B列字符进行替换，将“公司：”，“供应商：”，替换为空，再对B列字符相同，则对相同行求和，如：上海DD=-54
3、针对A列&B列串联，然后对B列和A列再串联
4、如串联后A&B=B&A,且绝对值abs(sum(A))=ab(sum(b)),则再C列对应的行全部打标为T，否则为F，详见附件
5、结果详见图片



请用数据字典去重求和并匹配打标，感谢

不好意思附件B3行少了上海，附件更新了，达到结果为C列展示情况

shiruiqiang

应该是4个字典吧，a列、b列，a&b，b&a

liulang0808

建议楼主结合附件内容，举例描述一下具体结果是怎么计算得出的

yynrzwh

只有A=B,才能A&B=B&A。楼主的数据没有符合的。

wb5992

liulang0808 发表于 2024-5-11 08:00
建议楼主结合附件内容，举例描述一下具体结果是怎么计算得出的

>>以A&B作为参数，对A&B参数对应的C列查询是否有重复项，如有则求和，如没有C列值则为求和值
>>再以B&A作为参数，对B&A参数对应的C列查询是否有重复项，如有则求和，如没有C列值则为求和值
>>然后对A&B参数去匹配B&A参数，需要A&B=B&A，同时A&B求和需要等于B&A求和（以上均为绝对值求和），成立则为T，反之F
>>最后展示结果以图片C列为准，如第二行（A&B列）：上海AA上海BB（替换过“公司：”后）=第三行（B&A列）：上海AA上海BB（替换过“公司：”后），同时C列abs（C2）=bas(c3),则C2=T,C3=T；

注意第4行=第5+第6行求和后对比相等，则C4，C5,C6均为T

grf1973

如果示例中“上海AA"和”AA"不是同一个公司，无论如何得不出结果的。
这该如何判断？

grf1973

要用到2个字典，1个字典求和，1个字典记录对应的行。求和结果相同，则对应行标“T”。

yynrzwh

不知道是不是这个意思 往来核对.zip (18.62 KB, 下载次数: 7)

2024-5-11 10:03 上传

点击文件名下载附件

wb5992

grf1973 发表于 2024-5-11 09:40
要用到2个字典，1个字典求和，1个字典记录对应的行。求和结果相同，则对应行标“T”。

全量数据看了一下，还存在部分合并后A&B=B&A参数相同，且参数对应数值求和后相等的，匹配结果为F，没看出代码哪里有问题

grf1973

翻译成了JSA，练练手。
原想字典的key和item都用数组来操作的，怎么调试都不行。只能通过字符串再分列方式，也是奇怪。