Excel VBA excel - Separar Letras em colunas

[SobreName]

Bom Dia!

Gostaria da ajuda dos senhores

Sou leigo em programação, e estou pesquisando como separar letras de uma mesma célula. Lembrando que são letras/números e não textos.

 

Darei um exemplo, a informações da "Coluna A" tem que ser dividida em várias colunas, cada uma caractere por caractere:

 

Coluna A    Coluna B  Coluna C  ...

asdf123           a                s         ...

qwert321         q                w        ...

123abc            1                2         ...

 

Minha planilha possui N numeros de linhas, e cada cédula da coluna A tem 64 carateres, e a macro teria que fazer isso em todas as linhas que tivesse algum valor.

 

Alguém pode me ajudar?

[Midori]

@SobreName Com a função Len você pode pegar o tamanho do texto e com isso é só fazer um loop para ir colocando cada letra na coluna, p.ex,

For I = 1 To Len([A1])
    [A1].Offset(0, I) = Mid([A1], I, 1)
Next I

 

[SobreName]

6 horas atrás, Midori disse:

@SobreName Com a função Len você pode pegar o tamanho do texto e com isso é só fazer um loop para ir colocando cada letra na coluna, p.ex,

For I = 1 To Len([A1])
    [A1].Offset(0, I) = Mid([A1], I, 1)
Next I

 

 

 Como assim? Desculpe, mas eu não entendi, sou meio leigo nesse assunto de VBA

@Midori

[DJunqueira]

você tem certeza de q quer criar 64 colunas com uma letra em cada célula?
você está certo de q esse é o melhor caminho p/ resolver o seu problema?

[Midori]

15 horas atrás, SobreName disse:

 Como assim? Desculpe, mas eu não entendi, sou meio leigo nesse assunto de VBA

 

Foi um exemplo para uma célula. Assim vai separar os textos do range A1:A3, veja se resolve. Se quiser aumentar o range é só editar onde está A1:A3.

 

Sub Macro()
    Dim Area    As Range
    Dim I       As Integer
    
    For Each Area In [A1:A3]
        For I = 1 To Len(Area)
            Area.Offset(0, I) = Mid(Area, I, 1)
        Next I
    Next Area
End Sub