3 métodos para concatenar linhas em uma célula com base em grupo no Excel

Combinar várias linhas de dados em uma única célula com base em um grupo é um requisito comum ao trabalhar com conjuntos de dados estruturados no Excel. Por exemplo, você pode querer mesclar todos os nomes associados à mesma classe em uma célula. Este artigo fornece instruções passo a passo usando vários métodos e otimizações para diferentes níveis de experiência e casos de uso.

• Agrupar e concatenar com fórmulas e função Filtro
• Agrupar e concatenar facilmente com Kutools para Excel
• Agrupar e concatenar com código VBA

Agrupar e concatenar com fórmulas e função Filtro

Você pode usar as fórmulas do Excel junto com a função "Filtro" para concatenar linhas com base em uma coluna. Siga os passos abaixo.

1. Em uma nova coluna, insira a seguinte fórmula para concatenar os nomes e pressione "Enter". Arraste para baixo para aplicá-la ao intervalo da coluna.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. Em uma nova coluna, insira a seguinte fórmula, pressione "Enter" e arraste a fórmula para baixo.

   =IF(A2<>A3,"Last","")

   
3. Selecione todo o intervalo de dados, incluindo as colunas auxiliares. Selecione "Dados" > "Filtro" para adicionar ícones de filtro aos dados.
   
4. Clique no ícone de "Filtro" na última coluna auxiliar, marque apenas a caixa de seleção "Último" e clique em "OK".
   

Agora o resultado é mostrado abaixo, você pode remover a última coluna auxiliar se não precisar mais dela.

Agrupar e concatenar facilmente com Kutools para Excel

O "Kutools para Excel" oferece uma solução simples e eficiente - "Mesclar Linhas Avançado", permitindo que você combine linhas agrupadas em uma única célula com apenas alguns cliques. Ele adiciona automaticamente separadores personalizados, como vírgulas, espaços ou quebras de linha, para atender às diversas necessidades de apresentação de dados.

1. Destaque as células que contêm seus dados. Navegue até "Kutools" > "Mesclar & Dividir" > "Mesclar Linhas Avançado".
2. Na janelaMesclar Linhas Avançado por favor, configure conforme segue:
   1. Clique na coluna na qual deseja combinar as linhas e defina-a como "chave primária".
   2. Para a coluna que deseja concatenar, como a coluna "Nomes" neste caso, especifique um delimitador na seção "Combinar" sob o campo "Operação" para esta coluna.
   3. Clique no botão "OK".
   4. 

Resultado: O Kutools irá mesclar automaticamente os dados com base no grupo em uma única célula com um delimitador específico.

Agrupar e concatenar com código VBA

Você também pode usar o VBA para concatenar linhas com base em um grupo dinamicamente.

1. Pressione as teclas "Alt" + "F11" para habilitar a janela "Microsoft Visual Basic for Applications".
2. No editor de código, clique em "Ferramentas" > "Referências" para habilitar a caixa de diálogo "Referências", marque "Microsoft Scripting Runtime" e salve as alterações.
   
3. Vá para "Inserir" > "Módulo" e cole o seguinte código VBA na janela Módulo.
   VBA: Concatenar linhas em uma célula com base em grupo

   Sub ConcatenateCellsIfSameValues()
   'UpdatebyExtendoffice20180201
       Dim I As Long
       Dim J As Long
       Dim xRg As Range
       Dim xRgKey As Range
       Dim xRgVal As Range
       Dim xStr As String
       Dim xDic As New Dictionary
       On Error Resume Next
       Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
       If xRg Is Nothing Then Exit Sub
       Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
       If xRgKey Is Nothing Then
           MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
       End If
       Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
       For I = 1 To xRgKey.Count
           If I > xRgKey.Count Then Exit For
           xStr = ""
           For J = 1 To xRgVal.Columns.Count
               xStr = xStr & " " & xRgVal(I, J)
           Next
           If xDic.Exists(xRgKey(I).Text) Then
               xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
               xRgKey(I).EntireRow.Delete
               I = I - 1
          Else
               xDic.Add xRgKey(I).Text, xStr
           End If
       Next
       For I = 1 To xRgVal.Count
           xRgVal(I).Value = xDic(xRgKey(I).Text)
       Next
   End Sub

   
4. Pressione a teclaF5 para executar o script e siga quaisquer prompts para selecionar seu intervalo de dados e especificar colunas-chave.
   

O resultado é mostrado abaixo:

Ao trabalhar com dados no Excel, agrupar e mesclar células é uma tarefa comum, mas complexa. Dependendo de suas necessidades e ferramentas, você pode escolher entre vários métodos para alcançar esse objetivo. Selecione a ferramenta e o método mais adequados com base em suas necessidades e preferências específicas para tornar seu trabalho no Excel mais eficiente e conveniente. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais para ajudá-lo a dominar o Excel.

Demonstração: Agrupar e concatenar com Mesclar Linhas Avançado do Kutools para Excel