謝謝前輩分享將一維陣列放入字典item中
Sub 輸入資料到字典2()
Dim Arr As Range, Brr
Set D = CreateObject("Scripting.Dictionary")
Set Arr = Range([員工資料!F1], [員工資料!A1].End(xlDown))
For R = 2 To Arr.Rows.Count
Key$ = Arr(R, 1)
Brr = Arr(R, 2).Resize(, 5) 'Brr會是個2維資料陣列
'小技巧-Brr陣列降維度 2維陣列=>1維陣列
Brr = Application.Transpose(Application.Transpose(Brr))
D(Key) = Brr '把陣列裝到字典的 "Item"
Next R
End Sub
發表於 2020-5-18 16:20
| 
