How do I combine a row of a VBA array into a single number/text?

[dejavision]

Hi!

I have a VBA array that consists of multiple rows and six columns of numbers. I need to combine each row into a single number. For example, a row goes like this: 1 2 3 4 5 6. And I want to get 123456 as the output.
How do I do this? I've searched the web, but I haven't found a solution, and I just can't wrap my head around this.

Best regards,
dejavision.

[JOHN H. DAVIS]

Does this help?

Please Login or Register  to view this content.

This places the output in Column 7.

[dejavision]

Does this help?

Please Login or Register  to view this content.

This places the output in Column 7.

Hi, John!

Thank you very much for your swift reply. It almost solved my problem. Actually I'm dealing with the arrays inside the VBA procedure, as I'm trying not to reference cells because I have million rows in the array. But I have rewritten your procedure like this

Please Login or Register  to view this content.

And the only "bug" I have right now is that I have 6 columns in the resulting array which go like this:
1 12 123 1234 12345 123456.

And I don't know how to put it all in one column at once.

However in the 6th column I have exactly the result I want.

Best regards,
dejavision.

[JOHN H. DAVIS]

Maybe?

Please Login or Register  to view this content.

[dejavision]

Maybe?

Please Login or Register  to view this content.

For some reason it gives me 'Subscript out of Range'.

Best regards,
dejavision.

[dejavision]

For some reason it gives me 'Subscript out of Range'.

Best regards,
dejavision.

Maybe?

Please Login or Register  to view this content.

John, your solution finally worked for me! Thank you very much. I had to change the dimensions of the array to 1D.
Then I changed your code like this. I also had to use WorksheetFunction.Transpose, because at first the result was a long row, not a column.

Please Login or Register  to view this content.

Best regards,
dejavision.

[JOHN H. DAVIS]

You're welcome. Glad to hear you got a solution and thanks for the feedback.