locked
converter texto em número

    Question

  • Olá pessoal,

    Estou com um problema, realizei uma importação de vários arquivos texto, e tinha uma coluna com valores dentro, no excel ficou armazenado como se fosse um texto. Eu quero converter essa coluna para número, onde vou ordenar depois, o problema é que não estou conseguindo fazer isso...alguém sabe uma possível solução para este problema/

    Valeu.

    Tuesday, November 07, 2006 4:06 PM

Answers

  • Olá.

    Uma das possíveis soluções é seguir os passos abaixo:

    1. Em um módulo padrão do VBA, insira o seguinte código (para criar um módulo padrão, pressione Alt+F11 em sua planilha, para abrir o editor do VBA e selecione o menú Inserir, Módulo):

    Public Sub Altera()
      Dim rngCelula As Range
      For Each rngCelula In Selection
        rngCelula.FormulaLocal = rngCelula.Value
      Next rngCelula
    End Sub
    

    2. Ative novamente sua planilha e selecione todas as células que você quer converter de texto para número.

    3. Selecione, no menú do Excel, Formatar, Células e escolha um dos formatos (Número, Moeda, etc).

    4. Clique em OK

    5. Ainda com todas as células selecionadas, clique no menú Ferramentas, Macro, Macros e escolha a macro Altera.

    6. Clique em OK e confira o resultado.

    Atenciosamente,

    Tuesday, November 07, 2006 5:36 PM

All replies

  • Olá.

    Uma das possíveis soluções é seguir os passos abaixo:

    1. Em um módulo padrão do VBA, insira o seguinte código (para criar um módulo padrão, pressione Alt+F11 em sua planilha, para abrir o editor do VBA e selecione o menú Inserir, Módulo):

    Public Sub Altera()
      Dim rngCelula As Range
      For Each rngCelula In Selection
        rngCelula.FormulaLocal = rngCelula.Value
      Next rngCelula
    End Sub
    

    2. Ative novamente sua planilha e selecione todas as células que você quer converter de texto para número.

    3. Selecione, no menú do Excel, Formatar, Células e escolha um dos formatos (Número, Moeda, etc).

    4. Clique em OK

    5. Ainda com todas as células selecionadas, clique no menú Ferramentas, Macro, Macros e escolha a macro Altera.

    6. Clique em OK e confira o resultado.

    Atenciosamente,

    Tuesday, November 07, 2006 5:36 PM
  • Olá Otávio,

    olha funcionou o esquema, só acho que é preciso testar para ver se não chegou ao fim da execução, pois ele fica executando infinitamente, daí é preciso parar a macro a força.

    Se tiver uma idéia de como fazer isso, favor postar....tb vou ficar tentando achar uma solução para isso, caso eu consiga post o código.

    valeu.
    Tuesday, November 07, 2006 5:52 PM
  • Otávio,

    seguinte, funciona beleza, eu que estava selecionando a coluna inteira em vez de selecionar somente até onde estava a última célula preenchida.

    Valeu;

    Tuesday, November 07, 2006 6:03 PM
  • Se desejar não utilizar macro você pode selecionar toda a coluna e No Menu Dados clique em Texto para colunas e pronto, toda coluna será convertida!

     

    http://www.tudosobrexcel.com

    Wednesday, November 08, 2006 10:41 AM
  • Olá Otavio !!!

    Vc eh um mestre no vba heim ! tava quebrando a cabeça p fazer isso.

    Valeu mesmo a dica !

    Thursday, August 06, 2009 1:32 AM
  • Olá Otávio,

    Tenho o mesmo problema com uma planilha que recebo de um cliente, em que todos os dados vem como texto, com um espaço em branco a direita.

    Tentei sua solução VBA e, infelizmente não funcionou. Acho que o problema é esse espaço em branco, pois após a remoção o dado vira automaticamente número.

    A tentativa com a coluna, tambem não funciona.

    Alguma sugestão?

    Agradeço antecipadamente!

    Thursday, May 13, 2010 1:47 PM
  • Olá Pessoal, existe uma solução mais simples e rápida para a alteração do texto para número,

     

    Primeiro para remover os espaços dos textos é só utilizar a formula =TRIM (ingles)/=ARRUMAR(  - Portugues

     

    E a solução é você pegar a célula e multiplicar por 1

     

    Ex:

            A                B

    1   03434               =A1*1

     

    Resolvido e depois é só colar valores,

     

    Abraços pessoal!

     


    Baldini Fabio
    • Proposed as answer by Baldini Sunday, May 23, 2010 5:06 AM
    Sunday, May 23, 2010 5:06 AM
  • Meu caro Baldini.

    Perfeita a dica, simples e objetiva.

    Abraços

    Thursday, September 30, 2010 2:27 PM
  • Uma outra opção é

    Numa célula qualquer digite 1
    Copie a célula onde foi digitado o 1
    Selecione os dados que deseja converter
    Vá na opção, Colar Especial e selecione Colar Multiplicando

    Pronto , todos os valores como texto estarão como número.

    Att

     


    Bruno Silva Leite Office Developer officevb.blogspot.com
    Sunday, October 03, 2010 5:07 PM
  • Gênio!!!! Parabéns!!!

    Tava quebrando a cabeça pra incluir virgula e 2 decimais em um campo texto e a tua dica abriu a mente!!

    Multipliquei por 0,01!!!

    Perfeito

    abs

     

    Wednesday, March 30, 2011 6:07 PM