从数组到数组到数组

我创build了TempTable作为ReDim TempTable(1 To RowSize, 1 To 3) ，为每个单元格我有一个向量55值。 看下面的图片，以更好地理解

现在我想在工作表中复制TempTable的全部内容。 由于TempTable有7576行，范围应该是[7576×55，3]。 有没有什么聪明和快速的方法来做到这一点？

Answer 1

这应该工作顺利（如果每列中的向量具有相同的大小）：

 Sub test_gmeroni() Dim TempTable() As Variant, _ wS As Worksheet, _ Rg As Range, _ InBound As Long, _ i As Long, _ j As Long Set wS = ThisWorkbook.Sheets("OutPut") Set Rg = wS.Range("A1") ReDim TempTable(1 To 7576, 1 To 3) For i = LBound(TempTable, 1) To UBound(TempTable, 1) For j = LBound(TempTable, 2) To UBound(TempTable, 2) 'Calculate vectors size InBound = UBound(TempTable(i, j), 1) 'Put vector on sheet Rg.Offset(0, j - 1).Resize(InBound, 1).Value2 = TempTable(i, j) Next j 'Select next cell to start printing next row Set Rg = Rg.Offset(InBound + 1, 0) Next i End Sub