学习字典的一对多的应用方法。

ning84

【新提醒】VBA高级教程之字典篇，使用类模块实现字典一对多应用-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1068628-2-1.html






字典一对多的思路，肯定会有用，要花功夫学习。

ning84

1. Sub lll()
   
2.    Dim Dict As Dictionary
   
3.    Dim ii
   
4.    Dim Arr
   
5.    Dim oDate
   
6.        oDate = Now()
   
7.        Set Dict = New Dictionary
   
8.        For ii = 1 To 4
   
9.            Dict("第" & ii) = Array(oDate, "A" & ii, "B" & ii, "C" & ii, Rnd(1) * 10000)
   
10.            oDate = oDate + 10
    
11.        Next ii
    
12.        Debug.Print Dict.Keys(1)
    
13.        Sheet1.Cells(10, 9).Resize(4, 1) = Application.WorksheetFunction.Transpose(Dict.Keys)
    
14.        Arr = Application.WorksheetFunction.Transpose(Dict.Items)
    
15.        Sheet1.Cells(10, 10).Resize(4, 3) = Application.WorksheetFunction.Transpose(Arr)
    
16.       
    
17.        With Application.WorksheetFunction
    
18.             Sheet1.Cells(20, 10).Resize(4, 5) = .Transpose(.Transpose(Dict.Items))
    
19.        End With
    
20.       
    
21.        Stop
    
22. End Sub
    

复制代码