Adding a comma between single digits in a cell

[lind33]

I am looking for a way to add a comma after every single digit in a cell.
I found some formulas on the web but since the number of digits is not equal in the cells, I can't get the result I need.

For example, in column A:
12345
12
135789
135
etc.

What formula can give me the result I need? can I get some help, please? thanks.
Expected results of the above example:
1,2,3,4,5
1,2
1,3,5,7,8,9
1,3,5

 

[Eric W]

Nice, Rick, I hadn't seen that version before. Much cleaner.

 

[Rick Rothstein]

Nice, Rick

Thanks!

I hadn't seen that version before.

Me either... I made it up on the spot. In thinking about it now, I vaguely remember doing something in a similar vein in VBA using String and Format a while ago, so maybe that was in the back of my mind when I dummied up the formula for the initial testing.

 

[DanteAmor]

Thanks!

Me either... I made it up on the spot. In thinking about it now, I vaguely remember doing something in a similar vein in VBA using String and Format a while ago, so maybe that was in the back of my mind when I dummied up the formula for the initial testing.

Congratulations Rick for the ability you have to solve it on the spot. And for sharing it with mortals.

 

[Rick Rothstein]

Congratulations Rick for the ability you have to solve it on the spot. And for sharing it with mortals.

Uh, I am one of the mortals also you know. I just got lucky and thought up a simple formula using a somewhat different approach, that is all.

 

[Rick Rothstein]

Given the formula I posted in Message #8 , a UDF for this functionality (if one was thought to be necessary now) could be written as a non-looping one-liner...

Function AddCommas(s As String) As String
  AddCommas = Evaluate(Replace("MID(TEXT(@,REPT(""\,0"",LEN(@))),2,2*LEN(@))", "@", s))
End Function

I know this is an old thread, but I have another way to write the above one-liner...

Function AddCommas(S As String) As String
  AddCommas = Replace(Trim(Replace(StrConv(S, vbUnicode), Chr(0), " ")), " ", ",")
End Function