Hola,

mira este articulo, quizas te sirva:

http://es.kioskea.net/faq/sujet 989 word convertir un numero en letras

Se me ocurre como hacerlo en un lenguaje de programación, pero no en algo tan básico como el excel...

Hola,
me ha llamado la atencion tu pregunta. yo tengo un negociete y me hice una hoja de calculo en excel para que me imprimiera mis propios recibos, y que fuera capaz de escribir el importe en letras. Funciona muy bien (llevo 4 años usandolo), pero es un proceso bastante costoso. Si estas interesado, dimelo y me armare de valor para decirte como lo hice, jeje.
hasta luego

Lo que buscas es esto????
http://www.internetsegunyo.com/2009/01/excel-convertir-texto­-numero.html

Convertir Numeros a Letras en Exel (Argentina)
abris un exel, vas a herramientas, macro, macros. Donde dice nombre de la macro, pones n1 y despues hacé click en crear.
Te va a abrir un Visual Basic. Justo donde está el cursor, pegá lo siguiente:

Public Function NL(ByVal Numero As Double) As String
Dim NumTmp As String
Dim c01 As Integer
Dim c02 As Integer
Dim pos As Integer
Dim dig As Integer
Dim cen As Integer
Dim dec As Integer
Dim uni As Integer
Dim letra1 As String
Dim letra2 As String
Dim letra3 As String
Dim Leyenda As String
Dim Leyenda1 As String
Dim TFNumero As String
If Numero < 0 Then Numero = Abs(Numero)
NumTmp = Format(Numero, "000000000000000.00")
c01 = 1
pos = 1
TFNumero = ""
Do While c01 <= 5
c02 = 1
Do While c02 <= 3
dig = Val(Mid(NumTmp, pos, 1))
Select Case c02
Case 1: cen = dig
Case 2: dec = dig
Case 3: uni = dig
End Select
c02 = c02 + 1
pos = pos + 1
Loop
letra3 = Centena(uni, dec, cen)
letra2 = Decena(uni, dec)
letra1 = Unidad(uni, dec)
Select Case c01
Case 1
If cen + dec + uni = 1 Then
Leyenda = "Billon "
ElseIf cen + dec + uni > 1 Then
Leyenda = "Billones "
End If
Case 2
If cen + dec + uni >= 1 And Val(Mid _
(NumTmp, 7, 3)) = 0 Then
Leyenda = "Mil Millones "
ElseIf cen + dec + uni >= 1 Then
Leyenda = "Mil "
End If
Case 3
If cen + dec = 0 And uni = 1 Then
Leyenda = "Millon "
ElseIf cen > 0 Or dec > 0 Or uni > 1 Then
Leyenda = "Millones "
End If
Case 4
If cen + dec + uni >= 1 Then
Leyenda = "Mil "
End If
Case 5
If cen + dec + uni >= 1 Then
Leyenda = ""
End If
End Select
c01 = c01 + 1
TFNumero = TFNumero + letra3 + letra2 + _
letra1 + Leyenda
Leyenda = ""
letra1 = ""
letra2 = ""
letra3 = ""
Loop
If Val(NumTmp) = 0 Or Val(NumTmp) < 1 Then
Leyenda1 = "Cero Pesos"
ElseIf Val(NumTmp) = 1 Or Val(NumTmp) < 2 Then
Leyenda1 = "Pesos "
ElseIf Val(Mid(NumTmp, 4, 12)) = 0 Or Val(Mid _
(NumTmp, 10, 6)) = 0 Then
Leyenda1 = "de Pesos "
Else
Leyenda1 = "Pesos "
End If
TFNumero = "Son Pesos " & TFNumero & "con " & Mid _
(NumTmp, 17) & "/100"
TFNumero = UCase(TFNumero)
NL = TFNumero
End Function
Private Function Centena(ByVal uni As Integer, _
ByVal dec As Integer, ByVal cen As Integer) As String
Select Case cen
Case 1
If dec + uni = 0 Then
cTexto = "cien "
Else
cTexto = "ciento "
End If
Case 2: cTexto = "doscientos "
Case 3: cTexto = "trescientos "
Case 4: cTexto = "cuatrocientos "
Case 5: cTexto = "quinientos "
Case 6: cTexto = "seiscientos "
Case 7: cTexto = "setecientos "
Case 8: cTexto = "ochocientos "
Case 9: cTexto = "novecientos "
Case Else: cTexto = ""
End Select
Centena = cTexto
cTexto = ""
End Function
Private Function Decena(ByVal uni As Integer, _
ByVal dec As Integer) As String
Select Case dec
Case 1
Select Case uni
Case 0: cTexto = "diez "
Case 1: cTexto = "once "
Case 2: cTexto = "doce "
Case 3: cTexto = "trece "
Case 4: cTexto = "catorce "
Case 5: cTexto = "quince "
Case 6 To 9: cTexto = "dieci"
End Select
Case 2
If uni = 0 Then
cTexto = "veinte "
ElseIf uni > 0 Then
cTexto = "veinti"
End If
Case 3: cTexto = "treinta "
Case 4: cTexto = "cuarenta "
Case 5: cTexto = "cincuenta "
Case 6: cTexto = "sesenta "
Case 7: cTexto = "setenta "
Case 8: cTexto = "ochenta "
Case 9: cTexto = "noventa "
Case Else: cTexto = ""
End Select
If uni > 0 And dec > 2 Then cTexto = cTexto + "y "
Decena = cTexto
cTexto = ""
End Function
Private Function Unidad(ByVal uni As Integer, _
ByVal dec As Integer) As String
If dec <> 1 Then
Select Case uni
Case 1: cTexto = "uno "
Case 2: cTexto = "dos "
Case 3: cTexto = "tres "
Case 4: cTexto = "cuatro "
Case 5: cTexto = "cinco "
End Select
End If
Select Case uni
Case 6: cTexto = "seis "
Case 7: cTexto = "siete "
Case 8: cTexto = "ocho "
Case 9: cTexto = "nueve "
End Select
Unidad = cTexto
cTexto = ""

Una vez pegado, guardá el archivo (Archivo, Guardar) y cerrá la ventana del Visual Basic.
Te va a haber quedado abierta la ventana del exel que abriste en un principio, la cual ya contiene la fórmula para que transforme los número en letras.
Para ver como funciona te doy un ejemplo:
En la celda A1, colocá un número (ej:2987,65). Luego en la celda B1 colocá la siguiente fórmula: =nl(a1). En la celda B1 te aparecerá lo ésto: SON PESOS DOS MIL NOVECIENTOS OCHENTA Y SIETE CON 65/100.
La verdad que nunca respondo en los foros, pero con ésto, estube como un mes en google y no encontraba nada. Espero que les sirva

Buenas tardes Martin_Alexandroff espero y encuentres esta nota la verdad me sirvio mucho tu comentario pero keria saber si me podrias ayudar para poder kitar lo de SON PESOS y k pesos apareciera despues de poner la cantidad en letra por ejemplo CINCO MIL CUATROCIENTOS VEINTISEIS PESOS 20/100 si me podrias ayudar te lo agradeceria mucho compañero...
bueno....
me despido y esperare tu respuesta...
mi email es robert03263@hotmail.com si me lo podrias enviar gracias....

B t moma pues te respondo a tu pregunta la verdad no se muy bien en donde guardar la formula para k te aparesca la cantidad en letras a komo yo tengo entendido esa formula la vas a poner cada bes k utilices una hoja de excel ando checando si puedo guardarlo en otra opcion para k cada ves k lo abra este en un libro nuevo si llego a dar con tu pregunta te mandare la respuesta completa saleee no mas k dame chance yo te aviso
bueno kuidat....

Gracias
Con tu ayuda me ahorraste muchas horas de trabajo.
Saludos desde Chihuahua Chihuahua, Mexico.