用SQL解决的问题如何用数组+字典解决?

yuk_yu

用SQL解决的问题如何用数组+字典解决?

yuk_yu

期待大家帮忙!!

alzeng

解决问题我认为不能囿于方法，而应该看结果的正确性和便利性。
当然用字典数组的方法也是可以解决的，论坛上有很多这样的例子，楼主可以搜索看一看。

yuk_yu

我想学习字典数组.....

dailj

老师，我的需求正好相反，能不能帮忙看下
https://club.excelhome.net/forum.php?mod=viewthread&tid=1690851&extra=&mobile=2

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("QIC for Family 1")
   
7.         xh = .ComboBox1.Text
   
8.     End With
   
9.     With Worksheets("DataBase")
   
10.         .AutoFilterMode = False
    
11.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.         arr = .Range("a2:e" & r)
    
13.         For i = 1 To UBound(arr)
    
14.             If arr(i, 4) = xh Then
    
15.                 d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
    
16.             End If
    
17.         Next
    
18.     End With
    
19.     With Worksheets(1)
    
20.         .Range("q11").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
21.         .Range("q11").Resize(d.Count, 2).Sort key1:=.Range("r10"), order1:=xlDescending, Header:=xlNo
    
22.         .Range("q21:r" & .Rows.Count).Clear
    
23.     End With
    
24. End Sub
    

复制代码

chxw68

参与一下。