Para fazer o Excel escrever um valor por extenso, você pode utilizar uma função personalizada. Siga os seguintes passos: 1. Abra o Excel e crie uma nova planilha. 2. Pressione as teclas “Alt” e “F11” juntas para abrir o editor do Visual Basic. 3. Clique em "Inserir" e selecione "Módulo". 4. Digite o seguinte código na janela do módulo: Function EscreverValorPorExtenso(ByVal Numero As Double) As String Dim Numeros() As Variant Dim UmAteNove() As Variant Dim Dezenas() As Variant Dim Centenas() As Variant Dim Milhar() As Variant Dim Milhoes() As Variant Dim Bilhoes() As Variant Dim Trilhoes() As Variant Dim NumeroString As String Dim Resultado As String ' Define as variáveis Numeros = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove") UmAteNove = Array("um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove") Dezenas = Array("", "dez", "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa") Centenas = Array("", "cento", "duzentos", "trezentos", "quatrocentos", "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos") Milhar = Array("", "mil", "milhões") Milhoes = Array("", "milhão", "milhões") Bilhoes = Array("", "bilhão", "bilhões") Trilhoes = Array("", "trilhão", "trilhões") ' Converte o número para uma string NumeroString = Format(Numero, "#0.00") ' Separa o valor em reais e centavos ValorReais = Split(NumeroString, ".")(0) ValorCentavos = Split(NumeroString, ".