How to Concatenate two 1d array in vba?

[ke9c]

Anyone can help on this? thanks.

 

[Rick Rothstein]

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)

Since arrays in VBA do not have to start at either 0 or 1, perhaps this would be a more robust way to write your code snippet...

  Dim X As Long, Arr3 As Variant
  If UBound(Arr1) - LBound(Arr1) = UBound(Arr2) - LBound(Arr2) Then
    ReDim Arr3(1 To 1 + UBound(Arr1) - LBound(Arr1))
    For X = 1 To UBound(Arr3)
      Arr3(X) = Arr1(LBound(Arr1) + X - 1) & "_" & Arr2(LBound(Arr2) + X - 1)
    Next
  Else
    MsgBox "Arrays are of different sizes"
  End If

Note: I chose to start Arr3 at index 1 (not 0).