How do I combine 2 1 dimensional arrays into one, one dimensional arrays?

[Radoslaw Poprawski]

Hi all

    CP = ArkUstawienia.Range("A2:A" & LastCell)
    Tabele = Application.Transpose(ArkUstawienia.Range("E2:F2"))

I do have 2 Variant arrays
both are one-dimensional

and im trying to combine them into 1.
I tried split(Join(CP,",") &","&join(Tabele,","),",")

Getting and error

any ideas?

 

[Legacy 143009]

How do you want the new array result look like?

 

[Radoslaw Poprawski]

one dimensional as well
the direction (horizontal or vertical is not important

 

[Legacy 143009]

Ok, I mean like this:

newArray(1,1) = 1600083 newArray(2,1) = 1600068 newArray(3,1) = 1600198 newArray(4,1) = 1600095 newArray(5,1) = "EKPO.xlsx" newArray(6,1) = "EKKN.xlsx"

 

[Radoslaw Poprawski]

wont work,
the first array can have different amount of items in it, while the second always have 2

 

[Legacy 143009]

I am not asking about the amount. I am asking about the structure. What is it going to look like? Like my example above?

 

[Radoslaw Poprawski]

Ok I kinda figured it out myself,

the issue was that when assigning values to array from any sheets range it creates 2 dimensional array - like the ones above.
wjhat VBA join function needs is 1 dimensional array
so instead of this:

it should be
NewArray(0) = "A"
NewArray(1) = "B"
NewArray(3) = "C"

and I achived it bit wrong (?)

I used

application.worksheetfunction.textjoin()

to combine the data into one string.
then using VBA split I assigned values to an array getting 1 - dimentional array, however
since I used worksheet function I told it to combine text from all the ranges I wanted skipping the need for VBA JOIN function in the process