How to Concatenate two 1d array in vba?

[ke9c]

Anyone can help on this? thanks.

 

[bobsan42]

how exactly to concatenate?
add the second to the end of the first
or
to combine them in a 2-D array?

 

[ke9c]

how exactly to concatenate?
add the second to the end of the first
or
to combine them in a 2-D array?

no, i mean i have two array
array1=("aa","bb",cc")
array2=("dd","ee",ff")

i want to merge them into array3=("aa","bb",cc","dd","ee",ff")

is there a way to do it? thanks.

 

[pgc01]

Hi

There is no built-in function to concatenate arrays. Dimension an array with the total count of elements and copy the source arrays into it.

 

[bobsan42]

try this:
array3 = Split(Join(array1, ",") & "," & Join(array2, ","), ",")

 

[pgc01]

try this:
array3 = Split(Join(array1, ",") & "," & Join(array2, ","), ",")

Hi bobsan42

Your statement is assuming that the array elements don't have commas. Maybe use for ex. Chr(1) as separator?
Also only valid for strings (which seems to be the case).

 

[bobsan42]

yes you're right, pgc01 - it should be more generic:

array3 = Split(Join(array1, Chr(1)) & Chr(1) & Join(array2, Chr(1)), Chr(1))

 

[Apeximius]

yes you're right, pgc01 - it should be more generic:

array3 = Split(Join(array1, Chr(1)) & Chr(1) & Join(array2, Chr(1)), Chr(1))

It is worth stating that this solution will not work for arrays of complex data types (objects, arrays or user-defined types).
If that is your case, you need to build a new array (or expand one that you already have).

 

[rahulbassi268]

Is there a way to concatenate like this?

array1=("aa","bb",cc")
array2=("dd","ee",ff")

array3=("aa_dd","bb_ee","cc_ff")

 

[bobsan42]

dim array3()
Redim array3 (lbound(array1) to ubound(array2))
for i = lbound(array1) to ubound(array1)
array3(i)=array1(i) & "_" & array2(i)
next i

you just need to be sure that array1 and array2 have the same base: lbound(array1) = lbound(array2)