VBA统计最大值并且显示日期

nouce · 发表于 2023-3-29 10:44

lizhipei78 发表于 2023-3-28 18:25
这里你分开写试试看
我这里测试是完全没有问题的，我用的是WPS
我也用微软OFFICE 2016测试过了， ...

又提示这个溢出了
endRow = Range("I65536").End(4).Row

nouce · 发表于 2023-3-29 10:47

准提部林发表于 2023-3-28 18:53
上圖//

很感谢你这样详细的说明，谢谢！

lizhipei78 · 发表于 2023-3-29 16:07

nouce 发表于 2023-3-29 10:44
又提示这个溢出了
endRow = Range("I65536").End(4).Row

ndRow = Range("I65536").End(4).Row，这里是.end(3).row
算了，上面好多大神已经有很好的代码了，能找到解决的办法就好了，能解决就好了，不用想那么多

nouce · 发表于 2023-3-30 15:37

本帖最后由 nouce 于 2023-3-30 16:07 编辑

准提部林发表于 2023-3-28 18:53
上圖//

测试了好几天你这个代码，速度最快的代码就是你这个了，不过有个别取的单价不是最新的，是倒数第二的单价（好像是最后两个单价是一样的，就没有问题，如果最后两个单价不一样的，就会取最后二个单价，不是第一个的，不知道是什么问题？）但你这样说明，也还是有点不太能懂

nouce · 发表于 2023-3-30 15:51

lizhipei78 发表于 2023-3-29 16:07
ndRow = Range("I65536").End(4).Row，这里是.end(3).row
算了，上面好多大神已经有很好的代码了，能找 ...

还是要多学习一下的，有不同的方法，不同的思维来解决也是好的

准提部林 · 发表于 2023-3-30 16:43

本帖最后由准提部林于 2023-3-30 16:48 编辑

nouce 发表于 2023-3-30 15:37
测试了好几天你这个代码，速度最快的代码就是你这个了，不过有个别取的单价不是最新的，是倒数第二的单价 ...

是指最新日期有2個, 但單價不一樣???
那要取哪個???

如果最新的都排在下方, 那 for i = ubound(arr) to 2 step -1 用倒序即可~~
下方取過了, 上面就不會再取, 否則難以認定哪個是最新~~

nouce · 发表于 2023-3-30 16:57

本帖最后由 nouce 于 2023-3-30 17:06 编辑

准提部林发表于 2023-3-30 16:43
是指最新日期有2個, 但單價不一樣???
那要取哪個???

我明白了，是同一天有两次单价

准提部林 · 发表于 2023-3-30 18:50

nouce 发表于 2023-3-30 16:57
我明白了，是同一天有两次单价

If D >= Brr(R, 5) Then Brr(R, 5) = D: Brr(R, 6) = Arr(i, 9)

這樣就是 "最新" 且 "排在最後" 的一筆???

nouce · 发表于 2023-3-31 09:44

准提部林发表于 2023-3-30 18:50
If D >= Brr(R, 5) Then Brr(R, 5) = D: Brr(R, 6) = Arr(i, 9)

這樣就是 "最新" 且 "排在最後" 的一 ...

感谢这么详细的跟我说明

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

[求助] VBA统计最大值并且显示日期