View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
greyhound girl greyhound girl is offline
external usenet poster
 
Posts: 11
Default How to extract each digit from a number in one cell?

This might do it. I won't be able to try it for about an hour so will let you
know then. Thanks!!

"Don Guillett" wrote:

See if this idea helps
Sub extracteachnumber()
c = ActiveCell
For i = 1 To Len(c)
MsgBox Mid(c, i, 1) * 4
Next
End Sub

--
Don Guillett
SalesAid Software

"greyhound girl" wrote in message
...
I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle.
It's
how to parse that number into it's separate digits that is the challenge.
I
am used to redefine capabilities in other languages but can't find any
easy
equivalend in Excel.