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

perfect131

吴中泉 发表于 2023-4-17 11:19
我的机子测试程序没有问题,请看图中ii   iii 两个变量的值,还有字典的项目数也是10万

wps 跟 excel 当然不一样

perfect131

原来 函数上限65536 行啊，新姿势

1. Sub Macro1()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     '''65536 以内
   
4.     For i = 1 To 65536
   
5.         d(i) = i
   
6.     Next
   
7.     d(1) = 65539
   
8.     d(65536) = 2000000
   
9.     crr = d.items
   
10.     Debug.Print WorksheetFunction.Max(crr)
    
11.    
    
12.    
    
13.     '''65536 以外，只会比较 crr(lbound(crr)) 至 crr(WorksheetFunction.Max(crr)-1) 之间
    
14.     For i = 1 To 65538
    
15.         d(i) = i
    
16.     Next
    
17.     crr = d.items
    
18.     Debug.Print WorksheetFunction.Max(crr)  ''65538 - 65536 = 2
    
19.    
    
20.     '' crr(lbound(crr)) 至 crr(WorksheetFunction.Max(crr)-1)
    
21.     d(d.keys()(0)) = 1111111
    
22.     d(d.keys()(1)) = 3
    
23.    
    
24.     ''' 索引 超过 WorksheetFunction.Max(crr)-1 ，就不会被引用
    
25.     d(d.keys()(2)) = 66666
    
26.     d(d.keys()(65536)) = 2000000
    
27.     crr = d.items
    
28.     Debug.Print WorksheetFunction.Max(crr)
    
29. End Sub

复制代码

吴中泉

perfect131 发表于 2023-4-17 15:56
wps 跟 excel 当然不一样

可能楼主用的是office2007以前的版本,好像最大行只能到65536,最大列只有256

perfect131

吴中泉 发表于 2023-4-17 16:24
可能楼主用的是office2007以前的版本,好像最大行只能到65536,最大列只有256

我用 2016 也一样，不知道 64bit是否不一样

松野

zxsea_7426 发表于 2023-4-16 23:58
上限是65536

我的电脑不会报错，但是求不了最大值，我是用循环解决了

松野

tanglf188 发表于 2023-4-17 09:23
不用字典直接比大小
Sub Macro1()
    Dim i&, d As Object, mx&

这只是个例子说明MAX函数有限制，实际应用中我是需要用字典这种去重计数的算法（定义动态数组边界问题）；不过我用循环比较数组元素解决了最大值问题，如上各位大神展示的

松野

WANT-T 发表于 2023-4-17 10:26
取ITEM的最大值，这是什么需求？字典的作用通常是小数据量的去重，几十万的数据最好使用数据库来处理，而且 ...

列转行时候，定义动态数组边界问题

松野

1. crr = d.items
   
2. For i = 1 To UBound(crr)
   
3.     If crr(i) > mAxClom Then
   
4.         mAxClom = crr(i) '''获取转换后最大值列
   
5.     End If
   
6. Next

复制代码

直接循环比较简单粗暴

zjzyj