如何用字典实现多件件的数据差异比对

Hontyu · 发表于 2022-12-11 02:02

...........

Hontyu · 发表于 2022-12-11 02:03

............

chxw68 · 发表于 2022-12-11 09:14

sunnyliner2018 发表于 2022-12-10 21:47
老师：
感谢您的帮助，真是解决了我多日的困挠，有一点，我不太明白，请帮忙指教：
If ...

因为你的数据事先已经排好序了，所以这个问题可以不用字典来判断。If zrr(k)(1) - zrr(k)(0) > 0 Then这个是判断每个型号有几行数据，如果大于1行才进行下面的判断。

sunnyliner2018 · 发表于 2022-12-11 11:29

chxw68 发表于 2022-12-11 09:14
因为你的数据事先已经排好序了，所以这个问题可以不用字典来判断。If zrr(k)(1) - zrr(k)(0) > 0 Then这 ...

谢谢老师的解答，我明白了。感恩有您，比心

sunnyliner2018 · 发表于 2022-12-11 11:39

Hontyu 发表于 2022-12-11 02:02
...........

老师:非常感谢您，当凭证仅有一张时，只需要增加这一条就可以实现： ElseIf dic(Trim(ar(i, 5))) = 1 And Trim(ar(i, 20)) <> Trim(ar(i, 18)) Then
ar(i, 21) = "不一致"

今天送不了花了，明天我再给老师送花，感恩您帮忙！

·遁去的一· · 发表于 2022-12-11 23:24

弱弱的问一下，不能用辅助列达到效果吗 "=E10&R10" ,"=E10&T10", "=IF(V10=W10,"","不一致")"
新人瞎说的

mmwwdd · 发表于 2022-12-12 05:06

chxw68 发表于 2022-12-11 09:14
因为你的数据事先已经排好序了，所以这个问题可以不用字典来判断。If zrr(k)(1) - zrr(k)(0) > 0 Then这 ...

褚老师是论坛上最热心的人，一个高尚无私的人

sunnyliner2018 · 发表于 2022-12-12 21:53

·遁去的一· 发表于 2022-12-11 23:24
弱弱的问一下，不能用辅助列达到效果吗 "=E10&R10" ,"=E10&T10", "=IF(V10=W10,"","不一致")"
新人瞎说的 ...

如果用IF公式来确实是可以实现的，但是，如果你的数据量已经达到几十万行的时候，运行就会非常缓慢了。而VB可以解决EXCEL卡的问题，当然，VB还不算是最快的，还有更快的方式。

sunnyliner2018 · 发表于 2022-12-12 21:54

mmwwdd 发表于 2022-12-12 05:06
褚老师是论坛上最热心的人，一个高尚无私的人

是的，向前辈老师学习。

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

[求助] 如何用字典实现多件件的数据差异比对

评分

评分