Excel Mesclar conteúdo de diversas linhas numa única linha repetidamente

[Fábio Siol]

Pessoal, preciso de ajuda para formatar uma planilha que contém dados espalhados por células em diversas linhas numa única linha que corresponderá a uma pessoa.

 

Cada linha cinza é uma pessoa e todas as linhas brancas abaixo dessa linha cinza são dados dessa pessoa. Não há uma quantidade específica de linhas brancas abaixo de cada linha cinza, é aleatório. Umas linhas cinzas tem 4 linhas brancas abaixo e outras 1 por exemplo.Mesclar linhas.xlsx

 

Isso se repete abaixo em quase mil linhas.

 

Encontrei o complemento Kutools que mescla essas linhas da forma que preciso, mas não encontrei uma maneira automática de fazer em toda planilha então teria que toda hora selecionar as linhas que deveriam ser mescladas.

 

Alguém tem alguma ideia?

Mesclar linhas.xlsx

[Midori]

@Fábio Siol No caso do LT-022 é assim que deve ficar?

 

 

Esse tem mais de um telefone.

[Fábio Siol]

Isso @Midori!

 

Quando na mesma coluna houver mais de uma célula preenchida, o ideal é que coloque as informações lado a lado separadas por / na mesma célula.

[Midori]

@Fábio Siol Veja se assim resolve,

 

Sub Macro()
    Dim Area        As Range
    Dim Linha       As Long
    Dim Vetor(11)   As String
    Dim Coluna      As Integer
    
    Set Area = ActiveSheet.UsedRange
    
    For Linha = Area.Rows.Count To 2 Step -1
        For Coluna = 1 To UBound(Vetor)
            If Cells(Linha, Coluna) <> "" Then
                Vetor(Coluna) = Vetor(Coluna) & Cells(Linha, Coluna) & "/"
            End If
        Next Coluna
        
        If Cells(Linha, 1).Interior.ColorIndex = 15 Then
            For Coluna = 1 To UBound(Vetor)
                If Cells(Linha, Coluna) = "" Then
                    Cells(Linha, Coluna) = Vetor(Coluna)
                End If
            Next Coluna
            Erase Vetor
        End If
    Next Linha
End Sub

 

[Fábio Siol]

Perfeito @Midori! Muito obrigado!