The only way to combine arrays is to do it element by element. For
example, the following code creates combines Arr1 and Arr2 into a new
array named ArrRes.


Sub AAA()

Dim Arr1 As Variant
Dim Arr2 As Variant
Dim ArrRes() As Variant
Dim N As Long
Dim J As Long

Arr1 = Array("a", "b", "c", "d")
Arr2 = Array(1, 2, 3)

ReDim ArrRes(LBound(Arr1) To _
(UBound(Arr1) - LBound(Arr1) + (UBound(Arr2) - LBound(Arr2) + 1)))
J = LBound(ArrRes)
For N = LBound(Arr1) To UBound(Arr1)
ArrRes(J) = Arr1(N)
J = J + 1
Next N
For N = LBound(Arr2) To UBound(Arr2)
ArrRes(J) = Arr2(N)
J = J + 1
Next N

End Sub

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]




On Thu, 7 Jan 2010 07:23:14 -0800 (PST), Danny
wrote:

Hi,

I have 2 (or more) arrays, how can i combine them into 1?


example:
Array 1 = "1, 2, 3, 4"
Array 2 = "A, B, C, D, E, F"

Result:
Array_Combined = "1, 2, 3, 4, A, B, C, D, E, F"


br,
Danny