Transfer information from column

  • Thread starter Thread starter Canon
  • Start date Start date
C

Canon

Excel 2007
I have a large spreadsheet that was exported from a accounting file. There
are four columns with addresses, (add 1, add 2...), I would like to be able
to take this information and move it into one column without re-doing all the
information. If I can do this, I will be able to wrap the text to fit on the
same page.
 
Sub put4columnsinto1()
dim i as integer
dim dlr as long
dim lr as long

For i = 2 To 4
dlr = Cells(Rows.Count, 1).End(xlUp).Row + 1
lr = Cells(Rows.Count, i).End(xlUp).Row
Cells(1, i).Resize(lr).Copy Cells(dlr, 1)
Next i
End Sub
 
Back
Top