Bom dia!!

Esta é uma Função Definida pelo Usuário.
Por tanto insira dentro de um modulo, volte ao excel e digite na célula =Numbers

Function Numbers(c As Range)
Dim i As Long
Dim x As String


For i = 1 To Len(c)
    x = Mid(c, i, 1)
    If x Like "#" Then Numbers = Numbers & x
Next i


End Function

Baixe o arquivo em: http://www.sendspace.com/file/pzjved

Caso queira via Formula Excel, e está usando MS OF 2007, tente

=SOMA(EXT.TEXTO(0&A1;MAIOR(ÉNÚM(--EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1))*LIN(INDIRETO("1:"&NÚM.CARACT(A1)));LIN(INDIRETO("1:"&NÚM.CARACT(A1))))+1;1)*10^(LIN(INDIRETO("1:"&NÚM.CARACT(A1)))-1))

Fórmula Matricial:
Aperte as teclas CTRL + SHIFT + ENTER!
-----#-----#------#------#
Até 15 dígitos

=VPL(-0,9;;SEERRO(EXT.TEXTO(A1;NÚM.CARACT(A1)-LIN(INDIRETO("1:"&NÚM.CARACT(A1)))+1;1)%;""))

Fórmula Matricial:
Aperte as teclas CTRL + SHIFT + ENTER!
Att

Rodrigo,
Boa tarde!

Além da boa dica do nosso colega Alexandre.

Coloque esta formula na célula que deseja.

CNPJ

=SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(B2;".";"");".";"");"/";"");"-";"")

TEXTO.

=SUBSTITUIR(SUBSTITUIR(A2;"/";"");"/";"")

Boa tarde
Obrigado todsas deram certo, porem tenho mais uma coisa, alexandre seria possivel aplicar essa função vba em um botao, tipo, tenho la uma coluna com varios cnpj certo, ai com um click de botao essa coluna seja selecionada e essa função faria substituir esses caracteres indesejados?

obrigado..

Rodrigo,

Claro que tem, vá lá em desenvolvedor e inserir, escolha qualquer contrle, coloque na planilha coloque o nome que desejar depois atribua a macro ao contre. Para atribuir é só clicar com botão direito do mouse na opção "Atribuir macros".

Se a resposta foi útil, agradeça clicando na mãozinha lado superior direito.

Rodrigo,

Ficamos contente em ter te ajudado, quando precisa já sabe né? Pode voltar ao fórum que sempre tem alguém disposto a ajudar.