Guru do Excel e Power BI

Enviado: **18 Jan 2016 às 15:35**

Boa Tarde a Todos
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:

Imagem

Meu projeto 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 dos números por coluna.

OBS: Eu vou aplicar em mais de uma célula com valores diferentes e misturados, mas apenas números como apresentado na figura.

Obrigado a todos
Mauro

Enviado: **18 Jan 2016 às 17:05**

sua tabulação será determinada por "virgula" (,) ??

Se sim, segue codigo abaixo

Código: Selecionar todos

Sub Texto_colunas()
'
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
        Array(19, 1), Array(20, 1)), TrailingMinusNumbers:=True
    Range("A1").Select
 
End Sub

Enviado: **18 Jan 2016 às 17:18**

Olá Mauro Meira!

Pode existir quantos números a serem separados no máximo? 10? 100? Ou, não tem máximo!

Enviado: **19 Jan 2016 às 07:51**

Bom Dia Felipe

Muito Obrigado pela ajuda, vc resolveu meu problema.

Abraço
Mauro

Guru do Excel e Power BI

Macro_Separar Número de Uma Célula

Macro_Separar Número de Uma Célula

Re: Macro_Separar Número de Uma Célula

Macro_Separar Número de Uma Célula

Macro_Separar Número de Uma Célula