It is better to use a UDF to acheive this..If you are new to UDFs . launch
VBE using Alt+F11. Insert Module. Paste the below function. Close VBE and
return back to Workbook. Try as below
A1 = 1234567890
B1 = NumToText(A1)
Function NumToText(varValue) As String
arrWords = Array("Zero", "One", "Two", "Three", "Four", "Five", "Six",
"Seven", "Eight", "Nine")
If IsNumeric(varValue) = True Then
For intTemp = 1 To Len(varValue)
NumToText = NumToText & arrWords(Mid(varValue, intTemp, 1)) & " "
Next
End If
NumToText = Trim(NumToText)
End Function
If you are really looking for a formula; the below will work for 3 digit
numbers
=CHOOSE(LEN(A1),CHOOSE(A1+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),CHOOSE(LEFT(A1,1)+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
& " " &
CHOOSE(RIGHT(A1,1)+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),CHOOSE(LEFT(A1,1)+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
& " " &
CHOOSE(MID(A1,2,1)+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
& " " &
CHOOSE(RIGHT(A1,1)+1,"Zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"))
If this post helps click Yes