Merge 2 rows in same worksheet

[Kurt]

Hello All,

I have a worksheet with numbers like this:
A B
123 345
567 208
555 400
299 088

and so on down the worksheet several thousand rows.

How do I put B1 underneath A1 so that it is now in Cell A2 and make it all one column?

Many thanks!

Kurt

 

[cgcamal]

Hi Kurt,

Assuming your data begins in A1 and B1, you can try with this code in a module. The result will be in column C.

Sub Combine_Columns()

j = 1
For i = 1 To Range("A1").End(xlDown)
    Cells(j, 3) = Cells(i, 1)
    Cells(j + 1, 3) = Cells(i, 2)
    j = j + 2
Next
End Sub

Hope it helps.

Regards

 

[Kurt]

Hello Cesar,

Works perfect!

Many thanks for the prompt response!

Kurt