Transfer information from column

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.
 
D

Don Guillett

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I transfer information from Exel to Word Mailings? 2
Edit File Information 3
Auto fit row height for one column 3
Numbers in a column won't add up 1
wrap text from one column to the next 1
subdividing a column 2
Lookups - how to obtain data from a master spreadsheet into another 5
creating labels from excel spreadsheet 1

Top