Site Overlay

Combine columns one after the other in Excel

By Arif Akyüz

If you can do this with a macro, press ALT+F8. Create a new Macro, paste the following code, and then press run.

Sub alt_alta_yaz()
Dim i As Integer, son As Long
last = Range("a655360"). End(3). Row
For i = 2 To Range("a1"). End(xlToRight). Column
Range(Cells(son, i), Cells(son, i). End(xlUp)). Cut Range("a655360"). End(3)(2, 1)
Next i
i = Empty: last = Empty
End Sub