macro cell add a comma

[BrianMultilLanguage]

I need to add a comma at the end of every cell entry in one column and am
not having any success doing it.
It's gotta be easy for someone.
Help.

 

[Vergel Adriano]

maybe something like this:

Sub test()
Dim c As Range
For Each c In Range("A1:A10").Cells
If c.HasFormula Then
c.Formula = c.Formula & " & "","""
Else
c.Value = c.Value & ","
End If
Next c
End Sub

 

[JW]

Why not just use a formula in another column and PasteSpecial-->Values
over top of the existing data once complete?
=A1 & ","

 

[Vergel Adriano]

I assumed the OP was looking for a VBA solution because he posted his
question here... it can be done without using VBA, but I guess problems would
occur if the cell that needed a comma was the result of a formula. doing
PasteSpecial->Values would overwrite the formula.