Combining Cell into One

  • Thread starter Thread starter zyx777
  • Start date Start date
Z

zyx777

Is there an easy way to combine say A1 to A5000 to B1 seaparated by comma ?
 
Sub combine()

Dim text as string, i As Long
For i = 1 To 5000
text = text & Cells(1, 1)
Next
[b1] = text

End Sub


PAtrick Molloy
Microsoft Excel MVP
 
You must log in or register to reply here.

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

Transpose code has ceased to transpose 3
Altered pasting functionality 3
How to combine column data into one row 5
Macro to concatenate columns 1
Combining Two Cells. 3
How to copy into 1000s of cells? 6
Combining Multilple Worksheets Into One 6
combining row values into one cell while filter is active 6

Back
Top