Dictionary オブジェクトKeys
が行番号にすぎず、Items
各行の詳細である状況があります (つまり、項目は 1D 配列です)。
以下のコードの助けを借りて、行の詳細をディクショナリ項目 (配列) から行に戻すことができます。しかし、1 行ずつではなく 1 行で行うことはできますか?
Sub DataPushBackToSheet(DicTotDurations,DicHoldData,ob9)
Dim Key,ColumntoStart,LastColNumber
ColumntoStart = objExcel1.Application.WorksheetFunction.Match("Parent Business Process ID", ob9.Rows(1), 0) + 1
LastColNumber = objExcel1.Application.WorksheetFunction.CountA(ob9.Rows(1))
For Each Key in DicHoldData.Keys
ob9.Range(ob9.Cells(Key,ColumntoStart),ob9.Cells(Key,ColumntoStart)).Resize(1, UBound(DicHoldData.Item(Key)) + 1).Value = DicHoldData.Item(Key)
Next
End Sub