none
Macro_Separar Número de Uma Célula RRS feed

  • Pergunta

  • Bom Dia a Todos<o:p></o:p>

    Por Favor, alguém pode me ajudar com uma macro, preciso separar uma sequencia de números de uma célula para vária células, segue exemplo abaixo:<o:p></o:p>


    OBS: Eu vou aplicar em mais de uma célula com valores diferentes e misturados, mas apenas números como apesentado na figura.<o:p></o:p>

    Obrigado a todos.<o:p></o:p>

    Mauro<o:p></o:p>

    sexta-feira, 15 de janeiro de 2016 12:13

Respostas

  • Precisa ser via macro ?

    Pois existe um recurso chamado texto para colunas, dispnível na aba DADOS, que faz exatamente o que você quer.

    Esta funcionalidade está disponível no VBA através da função abaixo

        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
            TrailingMinusNumbers:=True
            


    André Santo | basevba.wordpress.com

    sexta-feira, 15 de janeiro de 2016 16:50

Todas as Respostas

  • Precisa ser via macro ?

    Pois existe um recurso chamado texto para colunas, dispnível na aba DADOS, que faz exatamente o que você quer.

    Esta funcionalidade está disponível no VBA através da função abaixo

        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
            TrailingMinusNumbers:=True
            


    André Santo | basevba.wordpress.com

    sexta-feira, 15 de janeiro de 2016 16:50
  • Caro Amigo André Santo

    Obrigado por responder, sim precisa ser macro, o projeto que tenho vai preencher uma planilha com no mínimo 100 linhas da coluna "A1" com números aleatórios, após este preenchimento, que estou fazendo também via macro, vem esta separação.

    OBS: Eu não sei como usar esta função que vc passou, eu entendo pouco de VBA, desculpa.

    Obrigado mais uma vez.

    Abraço

    Mauro

    • Editado MauroMeira segunda-feira, 18 de janeiro de 2016 18:12 foco
    segunda-feira, 18 de janeiro de 2016 11:08
  • https://support.office.com/pt-br/article/Dividir-o-texto-em-c%C3%A9lulas-diferentes-30b14928-5550-41f5-97ca-7a3e9c363ed7
    quinta-feira, 4 de fevereiro de 2016 05:14