How to copy all data from a multidimension array to a table column?

[Jack_881]

Hi All

I have a procedure that runs a loop to do two things:

1. Collect Data in a 2D array
2. Copy data from a selected dimension, in this case 8 and copy the contents in table column.

part of the code below where it copies the data into the table below:

tbl.DataBodyRange.Cells(i, tbl.ListColumns("COL1").Index) = myRange(i, 8)

The code works fine and does what it needs to, but I am trying to make it run more efficiently by limiting the interaction between VBA and the worksheet.

My questions is, how can I copy all the data from the specified dimension (in this case 8) to the table?

Cheers

Jack

 

[Alex Blakenburg]

You can try this using this syntax but you would need to resize the target range to the same number of rows:

Application.Index(myRange, 0, 8)