PESSOAL,

Eu só preciso de uma macro para agrupar as informações em duas colunas ! Assim eu poderei criar a lista personalisada...

Obrigado

Não sei se entendi, mas veja se é mais ou menos isto.

Observando que antes de executar tem de eliminar todas as linhas em branco

Sub SplitLista()
    Dim n
    Dim i
    Dim celula
    Dim sCaract
    Dim sA, sB
    
    fimbase = Range("A60000").End(xlUp).Row
    
    For consulta = 2 To fimbase
        celula = Cells(consulta, 1).Text
        
        sCaract = Len(celula)
        
        With celula
            n = Split(celula, ".")
            ID = (n(i))
            
            If sCaract = 1 Then
                Cells(consulta, 3).NumberFormat = "@"
                Cells(consulta, 3) = ID
            Else
                sA = Cells(consulta, 1).Text
                sB = Cells(consulta, 2).Text
                
                Cells(consulta, 3).NumberFormat = "@"
                Cells(consulta, 3) = ID & " - " & sA '& " - " & sB
            End If
            
        End With
        
     Next

End Sub

[]s

Olá Mauro

É quase isso. Em uma coluna ficam apenas os valores inteiros e em outra coluna os códigos correspondetes a este número inteiro. Os números inteiros são os grupos e os outros números são os sub-grupos...

Exemplo:

Intervalo A1:A5
1
1
1
1
1

Intervalo B1:B5
01.01
01.02
01.03
01.04
01.05

Veja se seria isto, aproveitei adicionei uma rotina separada para deletar as linhas em branco, mas se já deletou as linhas não execute ela, só a de decompor.

Sub DeletaLinhasEmBranco()

    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    
    Call SplitLista
    
End Sub

Sub SplitLista()
    Dim n
    Dim i
    Dim celula
    Dim sCaract
    Dim sA, sB
    Dim IdTemp As Long
    fimbase = Range("A60000").End(xlUp).Row
    
    For consulta = 2 To fimbase
        celula = Cells(consulta, 1).Text
        
        sCaract = Len(celula)
        
        With celula
            n = Split(celula, ".")
            
            ID = (n(i))
            
            If sCaract = 1 Then
                'Cells(consulta, 3).NumberFormat = "@"
                Cells(consulta, 3) = ID
                IdTemp = ID
            Else
            
                If ID = IdTemp Then
                    sA = Cells(consulta, 1).Text
                    sB = Cells(consulta, 2).Text
                    
                    Cells(consulta - 1, 3) = ID
                    Cells(consulta - 1, 4).NumberFormat = "@"
                    Cells(consulta - 1, 4) = sA
                    'Cells(consulta - 1, 4) = ID & " - " & sA  '& " - " & sB
                   
                End If
                
            End If
            
        End With
        
     Next

End Sub

PERFEITO!

Direto ao ponto!

Muito obrigado, mais uma vez.

Ops!!!

Reparei depois que enviei a ultima mensagem...a macro só formatou até o código 9, ou seja, até o código com uma casa decimal. Alguma relação ?

Ops!!!
Reparei depois que enviei a ultima mensagem...a macro só formatou até o código 9, ou seja, até o código com uma casa decimal. Alguma relação ?

Eu não havia feito testes em seu modelo completo, tinha pego somente algumas linhas, e se ler atentamente o que escreveu e der uma analisada na rotina verá que já matou a charada e praticamente resolveu.

código 9 com uma casa decimal.
Código 10 são duas casas decimais,

Então na linha em que temos a condição da qde de caracteres :
If sCaract = 1 Then
alteramos para :
If sCaract <= 2 Then - vou deixar voce pensar um pouco o porque de "<=" e não somente "="

Agora se for ter codigos com 3 digitos tem de fazer ajustes na rotina.

[]s

Kakakakakakakakakakakakaka

Taí, foi a melhor explicação para as soluções que já vi aqui. Fiz a analise e percebi a situação, mas optei por fazer a observação e confirmar minha percepção.
Quanto a <=2, é evidente que cria uma situação a qual eu preciso, visto que possuem códigos com 1 ou 2 caracteres...se fosse -2, aí seria o inverso do que ocorreu.

Valeu ! Muito boa, um dia eu aprendo.