View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default How to extract each digit from a number in one cell?

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.