Convertir número a letra en Excel (2025): mi forma rápida, sin errores y con moneda

1. 1
   Abre Excel y presiona Alt + F11 para abrir el Editor VBA.
2. 2
   Ve a Insertar → Módulo y abre un módulo en blanco.
3. 3
   Pega el código de abajo en el módulo.
4. 4
   Cierra el editor y guarda el archivo como .xlsm (libro con macros habilitadas).
5. 5
   Usa =NUMEROALETRA(A1) en cualquier celda.

Limitaciones de esta versión

• ✗
  Solo convierte hasta $9,999,999 — montos mayores devuelven error.
• ✗
  Sin parámetro de moneda — siempre dice «Pesos», necesitas anidar SUSTITUIR().
• ✗
  Sin mayúsculas — necesitas anidar MAYUS() por fuera.
• ✗
  Debes guardar como .xlsm cada vez — los archivos .xlsx pierden la macro.
• ✗
  Excel 365 puede bloquearlo por políticas de seguridad corporativas.

NUMEROALETRA_basica.bas

Copiar código

' ╔══════════════════════════════════════════╗
' ║  NUMEROALETRA — Versión gratuita básica  ║
' ║  Límite: hasta $9,999,999                ║
' ║  Sin parámetros de moneda ni mayúsculas  ║
' ║  Versión completa: nexel.com.mx          ║
' ╚══════════════════════════════════════════╝

Function NUMEROALETRA(numero As Double) As String

    ' Límite de la versión gratuita
    If numero >= 10000000 Then
        NUMEROALETRA = "#LÍMITE: para montos mayores usa NUMEROALETRAX"
        Exit Function
    End If

    Dim entero As Long
    Dim cents  As Integer
    entero = Int(numero)
    cents  = Round((numero - entero) * 100)
    NUMEROALETRA = NumALetra(entero) & " Pesos " & Format(cents, "00") & "/100"

End Function

Private Function NumALetra(n As Long) As String
    Dim u(19) As String
    Dim d(9)  As String
    Dim c(9)  As String

    u(1)="Uno":     u(2)="Dos":       u(3)="Tres"
    u(4)="Cuatro":  u(5)="Cinco":     u(6)="Seis"
    u(7)="Siete":   u(8)="Ocho":      u(9)="Nueve"
    u(10)="Diez":   u(11)="Once":     u(12)="Doce"
    u(13)="Trece":  u(14)="Catorce":  u(15)="Quince"
    u(16)="Dieciséis": u(17)="Diecisiete"
    u(18)="Dieciocho":  u(19)="Diecinueve"

    d(2)="Veinte":    d(3)="Treinta"
    d(4)="Cuarenta":  d(5)="Cincuenta"
    d(6)="Sesenta":   d(7)="Setenta"
    d(8)="Ochenta":   d(9)="Noventa"

    c(1)="Ciento":      c(2)="Doscientos"
    c(3)="Trescientos":  c(4)="Cuatrocientos"
    c(5)="Quinientos":   c(6)="Seiscientos"
    c(7)="Setecientos":  c(8)="Ochocientos"
    c(9)="Novecientos"

    If n = 0   Then: NumALetra = "Cero": Exit Function
    If n = 100 Then: NumALetra = "Cien":  Exit Function

    Dim r As String: r = ""

    If n >= 1000000 Then
        r = NumALetra(n \ 1000000) & " Millón"
        If n \ 1000000 > 1 Then r = r & "es"
        n = n Mod 1000000
        If n > 0 Then r = r & " "
    End If

    If n >= 1000 Then
        If n \ 1000 = 1 Then
            r = r & "Mil"
        Else
            r = r & NumALetra(n \ 1000) & " Mil"
        End If
        n = n Mod 1000
        If n > 0 Then r = r & " "
    End If

    If n >= 100 Then
        r = r & c(n \ 100)
        n = n Mod 100
        If n > 0 Then r = r & " "
    End If

    If n >= 20 Then
        r = r & d(n \ 10)
        If n Mod 10 > 0 Then
            r = r & " y " & u(n Mod 10)
        End If
    ElseIf n > 0 Then
        r = r & u(n)
    End If

    NumALetra = r
End Function