How do I add commas after each text in each cell?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ChrishBiz - 20 Apr 2007 00:54 GMT

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?

Reply to this Message

CLR - 20 Apr 2007 01:17 GMT

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......

Vaya con Dios,
Chuck, CABGx3

> 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?

Reply to this Message

T. Valko - 20 Apr 2007 04:04 GMT

Here's a short macro that will do this:

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.

Select the range of cells in question then run the macro.

Biff

>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?

Reply to this Message

Rate this thread: