原資料如何用字典拆分，入不連續的欄位

3^# 跳轉到 »

發表於 2018-9-13 12:26 | 只看該作者

如果只是要欄位匯入，不判斷，下面要如何改？

For Each Rng In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Rng.Offset(0, 1).Resize(1, 7) = d(Rng.Value)
Next

希望支持!

2^#

發表於 2018-9-13 12:00 | 只看該作者

回復 1# s7659109
請參考

Sub test() '字典與數組
Dim arr
Set d = CreateObject("scripting.dictionary")
Dim lastrow&
lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
arr = Sheet3.Range("a1:h" & lastrow)
For i = 2 To UBound(arr)
' d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8))
d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), "", arr(i, 7), arr(i, 8), "", arr(i, 4))
Next
For Each Rng In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Rng.Offset(0, 1).Resize(1, 7) = d(Rng.Value)
Next
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。