How to add commas after each text in each cell using Excel Macro

[Raju Chacha]

Sponsored Links

I have a list of about 23,000 emails. I need to make an E-mail blast. The only way I know how to do that is by adding a comma at the end of each one. How can I save the hassle of inserting a comma manually into each cell? If you have any information then please do the reply.

[ADJATAY]

According to my information, you just try this out

• In an adjacent helper column (column B), put this in B1 and copy down. =A1&","
• Then do Copy > PasteSpecial > Values on that column to get rid of the formulas.

May this will help you out to do this query in excel.

[D_chapple]

You should try this short macro, so for that you just have to create a sub procedure.

Sub AddComma()

Dim cell As Range
For Each cell In Selection
If cell.Value <> "" Then
cell.Value = cell.Value & ","
Else: cell.Value = cell.Value
End If
Next cell
End Sub

• Place the code in a general module.
• And after that select the range of cells in question then run the macro.