一个字典d.items取最大值问题

松野

1. Sub Macro1()
   
2.     Dim i&, d As Object
   
3.     Dim crr
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To 100000
   
6.         d(i) = i
   
7.     Next
   
8.     crr = d.items
   
9.     MsgBox Application.Max(crr)
   
10. End Sub
    

复制代码

当循环超过34464的时候，后面无论循环多少次d.items最大值只能是34464，那么如何求这条目很多的（几十万行）d.items的最大值呢？

松野

搜了一圈，看来只能用循环判断了，Max函数有限制

准提部林

For i = 1 To 100000
     v = i
     if v >34464 then v = 34464
     d(i) = v
Next

gwjkkkkk

工作表函数有限制
Sub test()
Dim iMax&, i&
iMax = 1
For i = 1 To 10000
    If i > iMax Then iMax = i
Next i
MsgBox iMax
End Sub

zxsea_7426

上限是65536

tanglf188

不用字典直接比大小
Sub Macro1()
    Dim i&, d As Object, mx&
    For i = 1 To 100000
        If i > mx Then mx = i
    Next
    MsgBox mx
End Sub


用字典这样

Sub Macro1()
    Dim i&, d As Object, mx&
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 100000
        If i > mx Then mx = i
        d(1) = mx
    Next
    MsgBox d(1)
End Sub

WANT-T

取ITEM的最大值，这是什么需求？字典的作用通常是小数据量的去重，几十万的数据最好使用数据库来处理，而且取最大值，哪个老师教的用字典呢？

darklesson

把数组排个序，取最大最小，甚至第1、第2、第3……那还不顺便取
sub test()
a=array(3, 8, 1, 4, 9, 4, 1, 5, 6, 2)  
for i=lbound(a) to  ubound(a) - 1
for j=ubound(a) to i + 1 step -1
if a(j - 1)<a(j) then x=a(j): a(j)=a(j - 1):  a(j - 1)=x
next j, i
debug.print join(a, "-")
End Sub

吴中泉

我的机子测试程序没有问题,请看图中ii   iii 两个变量的值,还有字典的项目数也是10万

你地铁图

可以分段处理