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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Canon" wrote in message
...
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.

WOW!
What does that mean? Can I copy and paste this somewhere?

"Don Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Canon" wrote in message
...
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.

.

http://www.google.com/search?source=...=&oq=&gs_rfai=

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Canon" wrote in message
...
WOW!
What does that mean? Can I copy and paste this somewhere?

"Don Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Canon" wrote in message
...
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.

.