Este fórum está sendo desativado

[MauroMeira]

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:



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

[daniexcel]

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

[Vaz]

Olá Mauro Meira!

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

[MauroMeira]

Bom Dia Felipe

Muito Obrigado pela ajuda, vc resolveu meu problema.

Abraço
Mauro