- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
回復 1# n7822123
謝謝前輩分享將一維陣列放入字典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 |
|
發表於 2022-10-17 13:32
| 