# Convert multiple rows and columns to one colu

[Solved/Closed]
Posts
6
Registration date
Sunday October 31, 2010
Status
Member
Last seen
March 28, 2011
-
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
-
Hello,

I have some data in excel sheet. Here is the example.
480,000 600,000 720,000
520,000 650,000 780,000
300,000 375,000 450,000
432,000 540,000 648,000
260,000 325,000 390,000
304,000 380,000 456,000
340,000 425,000 510,000
304,000 380,000 456,000

and must convert to
480,000
520,000
300,000
432,000
260,000
304,000
340,000
304,000

600,000
650,000
375,000
540,000
325,000
380,000
425,000
380,000

720,000
780,000
450,000
648,000
390,000
456,000
510,000
456,000

thanks alot

## 5 replies

Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
801
the data is from row 1 down to row 8(it can have as many rows) and three columns(it can have as many columns).

macro "test" is operative macro
macro "undo" undoes the result of the macro

try this macro

```Sub test()
Dim j As Long, k As Long, r As Range, dest As Range
j = Range("A1").End(xlToRight).Column
For k = 1 To j
Set r = Range(Cells(1, k), Cells(1, k).End(xlDown))
r.Copy
Set dest = Cells(Rows.Count, "A").End(xlUp).Offset(3, 0)
dest.PasteSpecial
Next k
End Sub```

```Sub undo()
Dim r As Range
Set r = Range("a1").End(xlDown).Offset(1, 0)
Set r = Range(r, Cells(Rows.Count, "A").End(xlUp))
r.EntireRow.Delete

End Sub```
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
801
copy column by column into destination pooint
How do you that without using macro? I am not really familiar with macro.
Hi

Thanks a lot
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
801
djuMSze

will you please open a new thread and give complete information and problem
thanks