como mesclar dados em várias linhas em uma linha?

Question

Aqui está um exemplo de como os dados são exibidos e como gostaria que eles parecessem

    

Answer 1

Você pode fazer isso com uma macro

Sub Flatten_em()

Dim inRow, outRow, outCol As Integer
Dim CheckVal As String

inRow = 3
outRow = 2

Sheets(1).Select
Rows("1:1").Select
Selection.Copy
Sheets(2).Select
Rows("1:1").Select
ActiveSheet.Paste

Sheets(1).Select
CheckVal = Cells(2, 2)

Range(Cells(2, 1), Cells(2, 7)).Select
Selection Copy
Sheets(2).Select
Cells(outRow, 1).Select
ActiveSheet.Paste

Do Until Cells(inRow, 2) = ""
    outCol = 8
    Do While Cells(inRow, 2) = CheckVal
        Sheets(1).Select
        Range(Cells(inRow, 4), Cells(inRow, 7)).Select
        Sheets(2).Select
        Cells(outRow, outCol).Select
        ActiveSheet.Paste
        outCol = outCol + 4
        inRow = inRow + 1
    Loop
    CheckVal = Sheets(1).Cells(inRow, 2)
    outRow = outRow + 1
Loop
End Sub

    

Answer 2

Use a fórmula CONCATENATE

Por exemplo, para mesclar A3, B3, C3, D3, E3, F3 e G3 na célula mesclada, faça o seguinte:

Na célula mesclada, digite a fórmula abaixo

=CONCATENATE(A3,B3,c3,D3,E3,F3,G3)