Can I write into an 10x10 array all-cells-at-once, without loops? how?

Sub abc()

Set MyRange = Range("A1:J10")

MyRange.Copy Destination:=Range("A20")

End Sub

"Bharath Rajamani" wrote:

> Can I write into an 10x10 array all-cells-at-once, without loops? how?

can you write that into an array dim (1 to 10, 1 to 10) without a loop ? thx!

"Joel" wrote:

> Sub abc()
>
> Set MyRange = Range("A1:J10")
>
> MyRange.Copy Destination:=Range("A20")
>
> End Sub
>
> "Bharath Rajamani" wrote:
>
> > Can I write into an 10x10 array all-cells-at-once, without loops? how?

You can if the array is originally declared as a dynamic array. E.g.,

Dim MyArray()
ReDim MyArray(1 to 10, 1 to 10)
MyArray = Range("A1:J10")

Alan Beban

Bharath Rajamani wrote:
> can you write that into an array dim (1 to 10, 1 to 10) without a loop ? thx!
>
> "Joel" wrote:
>
>> Sub abc()
>>
>> Set MyRange = Range("A1:J10")
>>
>> MyRange.Copy Destination:=Range("A20")
>>
>> End Sub
>>
>> "Bharath Rajamani" wrote:
>>
>>> Can I write into an 10x10 array all-cells-at-once, without loops? how?

Thx Alan, this works. Is the converse possible i.e.: to write from an array
into a worksheet range without using a for..next loop ?



"Alan Beban" wrote:

> You can if the array is originally declared as a dynamic array. E.g.,
>
> Dim MyArray()
> ReDim MyArray(1 to 10, 1 to 10)
> MyArray = Range("A1:J10")
>
> Alan Beban
>
> Bharath Rajamani wrote:
> > can you write that into an array dim (1 to 10, 1 to 10) without a loop ? thx!
> >
> > "Joel" wrote:
> >
> >> Sub abc()
> >>
> >> Set MyRange = Range("A1:J10")
> >>
> >> MyRange.Copy Destination:=Range("A20")
> >>
> >> End Sub
> >>
> >> "Bharath Rajamani" wrote:
> >>
> >>> Can I write into an 10x10 array all-cells-at-once, without loops? how?
>