Converting whole number back to decimal

[Excelnewbie001]

Just need a simple macro to convert a whole column R data to decimal
Example

945
920

So the output should look like this 9, 2, 0 and 9, 4, 5 .Please note there is one space after the decimal.

Thank you for any help

 

[SteveO59L]

what makes you think you need code to do that?

 

[Excelnewbie001]

what makes you think you need code to do that?

Hi Steve
Thanks for your reply -In column R there is a formula so thats why. Sorry I should have added that. Thanks for any help.

 

[SteveO59L]

so you have a formula in col R, which returns the values 945 (or 920 etc)?

whats the formula?

 

[Excelnewbie001]

so you have a formula in col R, which returns the values 945 (or 920 etc)?

whats the formula?

Concentuate ( , , ,)

 

[Rick Rothstein]

You want to replace the formulas in Column R with the digits as a comma delimited text string, correct? If so....

[table="width: 500"]
[tr]
	[td]Sub GetIndividualDigits()
  Dim Cell As Range
  For Each Cell In Range("R1", Cells(Rows.Count, "R").End(xlUp))
    Cell.Value = Replace(Trim(Replace(StrConv(Cell.Value, vbUnicode), Chr(0), " ")), " ", ", ")
  Next
End Sub[/td]
[/tr]
[/table]

If not, then this macro puts the output in Column S...

[table="width: 500"]
[tr]
	[td]Sub GetIndividualDigits()
  Dim Cell As Range
  For Each Cell In Range("R1", Cells(Rows.Count, "R").End(xlUp))
    Cell.Offset(, 1).Value = Replace(Trim(Replace(StrConv(Cell.Value, vbUnicode), Chr(0), " ")), " ", ", ")
  Next
End Sub[/td]
[/tr]
[/table]

 

[Excelnewbie001]

You want to replace the formulas in Column R with the digits as a comma delimited text string, correct? If so....

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub GetIndividualDigits()
  Dim Cell As Range
  For Each Cell In Range("R1", Cells(Rows.Count, "R").End(xlUp))
    Cell.Value = Replace(Trim(Replace(StrConv(Cell.Value, vbUnicode), Chr(0), " ")), " ", ", ")
  Next
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

If not, then this macro puts the output in Column S...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub GetIndividualDigits()
  Dim Cell As Range
  For Each Cell In Range("R1", Cells(Rows.Count, "R").End(xlUp))
    Cell.Offset(, 1).Value = Replace(Trim(Replace(StrConv(Cell.Value, vbUnicode), Chr(0), " ")), " ", ", ")
  Next
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Hi Rick

Thanks so much for your reply -no I would like to keep the formula in R -your second one works flawlessly with output to S thank you so much -fantastic coding there Rick you know your stuff!!!!!! 100% solved thanks
Have a great day

 

[Peter_SSs]

Concentuate ( , , ,)

Could we see the actual formula?

 

[Excelnewbie001]

Could we see the actual formula?

H Peter sure =CONCATENATE(P2,Q2,R2) -Making 3 columns 1 number

 

[Peter_SSs]

H Peter sure =CONCATENATE(P2,Q2,R2) -Making 3 columns 1 number

So, instead of the macro to then convert that to have commas, why not put in the other column:
=CONCATENATE(P2,", ",Q2,", ",R2)