array loading

[ISY]

Hi,

Alternatives to Reduce Code Lines

Sub Test()
  Dim arr
  ReDim arr(1 To 3, 1 To 2)
  arr(1, 1) = 10
  arr(2, 1) = 5
  arr(3, 1) = 4
  arr(1, 2) = "a"
  arr(2, 2) = "k"
  arr(3, 2) = "n"
End Sub

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG11Nov07
[COLOR="Navy"]Dim[/COLOR] Arr [COLOR="Navy"]As[/COLOR] Variant
Arr = [{10,"a";5,"k";4,"n"}]
Range("A1").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[ISY]

Thank you very much, was just what I was looking for

 

[MickG]

You're welcome