2D array

[ericlch16]

Hi Experts,

I have a range that I copied to a 2D array.

Now i want to copy from column 3 to column 10 from the 2D array to a range in excel. I read i can use application.index but if copies either the whole row or whole column. I want specific columns

for example

range(cells(1,1),cells(1,8)0 = array(2,3) to array array(2,10)

Can this be done without looping ? Looping takes too much time and i would like to avoid to loop.

 

[Fluff]

You can do that like

Sub ericlch()
   Dim Ary As Variant
   
   Ary = Sheets("Pcode").Range("A2:M20").Value2
   Sheets("Sheet1").Range("A2").Resize(UBound(Ary), 8).Value = Application.Index(Ary, Evaluate("row(1:" & UBound(Ary) & ")"), Evaluate("column(C:J)"))
End Sub