Concatenate columns

Originally Posted by JBeaucaire

If I understand what you're trying to do...create a new column that is the consolidation of all the other columns into one column in the next empty column...I would use a macro for this.

Sub ConcatColumns()
'JBeaucaire  (10/23/2009)
Dim LC As Long, LR As Long, i As Long
Application.ScreenUpdating = False
LC = Cells(1, Columns.Count).End(xlToLeft).Column + 1

    For i = 1 To LC - 1
        LR = Cells(Rows.Count, i).End(xlUp).Row
        Range(Cells(1, i), Cells(LR, i)).Copy Cells(Rows.Count, LC).End(xlUp).Offset(1, 0)
    Next i

Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

===========
How to use the macro:

1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save your sheet

The macro is installed and ready to use. Press Alt-F8 and select it from the macro list.

Thank you, you saved me!

Originally Posted by JBeaucaire

If I understand what you're trying to do...create a new column that is the consolidation of all the other columns into one column in the next empty column...I would use a macro for this.

Sub ConcatColumns()
'JBeaucaire  (10/23/2009)
Dim LC As Long, LR As Long, i As Long
Application.ScreenUpdating = False
LC = Cells(1, Columns.Count).End(xlToLeft).Column + 1

    For i = 1 To LC - 1
        LR = Cells(Rows.Count, i).End(xlUp).Row
        Range(Cells(1, i), Cells(LR, i)).Copy Cells(Rows.Count, LC).End(xlUp).Offset(1, 0)
    Next i

Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

JBeaucaire,

I think this is a module that should work for me, but I've followed your instructions without success. I have no real knowledge of VBS, so don't get too technical with a reply if you choose to reply. (I consulted this forum a few years ago for this same situation, i.e., a need to concatenate multiple columns/rows with the resulting strings displaying in a new column. The results were exactly what I wanted.)
Was I to edit your code in some way before copying to the module? ('Something "understood" to VBA-cognicent folks, but not so for those like me)?
I made sure that my "Macro Security" setting was on Medium/Low.
My worksheet just sits there and doesn't do a thing. My worksheet is 9 columns by 60,000 rows.
Many thanks for any suggestions you care to throw my way.