convert multiple rows and columns to one colu Solved/Closed

Question

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


Configuration: Windows XP / Firefox 3.6

venkat1926 · Accepted Answer

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

djuMSze · Answer

How do you that without using macro? I am not really familiar with macro.

venkat1926 · Answer

copy column by column into destination pooint

Murali · Answer

Hi


Thanks a lot

venkat1926 · Answer

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

Convert multiple rows and columns to one colu

5 responses

Similar discussions

Subscribe To Our Newsletter!