Something like concatenation

[davey11372]

I have a list of stock symbols (many hundreds) indexed in row A:A of an Excel worksheet, eg:

AQT
BSI
CMXO
DOD
ESTA


I need to merge the list into one cell with a comma (without any space) between the tickers, eg.

AQT,BSI,CMXO,DOD,ESTA

Any help would be appreciated.

 

[VoG]

Try this - result in B1

Sub concat()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1").Value = Join(Application.Transpose(Range("A1:A" & LR)), ",")
End Sub

 

[Domski]

Say your list starts in A1...

- In B1 enter =A1
- In B2 enter =B1&","&A2
- Copy B2 down

The entry at the bottom of your copied list will be all the items joined.

Dom

 

[davey11372]

Thank you VoG, and thank you Domski ............ both work. Appreciate it.