Macro_Separar Número de Uma Célula

Question

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>

Answer 1

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

Answer 2

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

Answer 3

https://support.office.com/pt-br/article/Dividir-o-texto-em-c%C3%A9lulas-diferentes-30b14928-5550-41f5-97ca-7a3e9c363ed7