Problemas com fÓrmulas

[Jônatas Cardoso]

Bom dia.

Gostaria de saber se existe uma fórmula no Excel para retirar a vírgula de números decimais e substituir por zeros à esquerda. Como é para layout, as células com zeros à esquerda devem sempre conter os mesmo caracteres.

Exemplo:

15,21 000001521

215,21 000021521

2,5436 000025436

Como manter os zeros, eu já consegui. Só que preciso tirar a vírgula.

[Wendell Menezes]

Supondo que os números decimais estejam na coluna "A", começando pela linha 1.

Coloque esta fórmula na coluna que desejar e arraste:

=SE(A1="";"Célula Vazia";SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=1;"00000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=2;"0000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=3;"000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=4;"00000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=5;"0000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=6;"000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=7;"00"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=8;"0"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=9;SUBSTITUIR(A1;",";"");"Número possui mais de 9 digitos"))))))))))

[zinhovba]

Boa tarde!!!

Outra opção...via VBA como Função.

'Função para separa texto pelo separador que eu tenho como critério.
Function nthword(tekst As String, n As Integer, separator As String)
sq = Split(tekst, IIf(separator = "", " ", separator))
nthword = sq(UBound(sq))
If n > UBound(sq) + 1 Then nthword = sq(n - 1)
End Function

[Jônatas Cardoso]

Supondo que os números decimais estejam na coluna "A", começando pela linha 1.

Coloque esta fórmula na coluna que desejar e arraste:

=SE(A1="";"Célula Vazia";SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=1;"00000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=2;"0000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=3;"000000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=4;"00000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=5;"0000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=6;"000"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=7;"00"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=8;"0"&SUBSTITUIR(A1;",";"");SE(NÚM.CARACT(SUBSTITUIR(A1;",";""))=9;SUBSTITUIR(A1;",";"");"Número possui mais de 9 digitos"))))))))))

Bah, quase funcionou! Porém deu uns problemas. Testa os seguintes números com a fórmula que tu me mandou:

2,20 resposta seria 000000220

10,10 resposta seria 000001010

100,11 resposta seria 0000010011

Abraço!

[Wendell Menezes]

Experimente selecionar a coluna onde os números serão digitados e mude o formato para Texto, depois digite os números novamente.

[Visitante]

=rept("0";9-nÚm.caract(substituir(a1;",";"")))&substituir(a1;",";"")