3 metodi per concatenare righe in una cella in base al gruppo in Excel

La combinazione di più righe di dati in una singola cella in base a un gruppo è un requisito comune quando si lavora con set di dati strutturati in Excel. Ad esempio, potresti voler unire tutti i nomi associati alla stessa classe in una cella. Questo articolo fornisce istruzioni dettagliate utilizzando vari metodi e ottimizzazioni per diversi livelli di competenza e casi d'uso.

• Raggruppa e concatena con formule e funzione Filtro
• Raggruppa e concatena facilmente con Kutools per Excel
• Raggruppa e concatena con codice VBA

Raggruppa e concatena con formule e funzione Filtro

Puoi utilizzare le formule di Excel insieme alla funzione "Filtro" per concatenare righe in base a una colonna. Procedi come segue.

1. In una nuova colonna, inserisci la seguente formula per concatenare i nomi e premi "Invio". Trascina verso il basso per applicarla attraverso l'intervallo della colonna.

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

   
2. In una nuova colonna, inserisci la seguente formula, premi "Invio" e trascina verso il basso la formula.

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

   
3. Seleziona tutto l'intervallo di dati, inclusi gli intervalli ausiliari. Seleziona "Dati" > "Filtro" per aggiungere icone filtro ai dati.
   
4. Clicca l'icona "Filtro" nell'ultima colonna ausiliaria, spunta solo la casella "Ultimo" e clicca "OK".
   

Ora il risultato è mostrato come segue, puoi rimuovere l'ultima colonna ausiliaria se non ti serve più.

Raggruppa e concatena facilmente con Kutools per Excel

"Kutools per Excel" offre una soluzione semplice ed efficiente - "Unione avanzata righe", che ti permette di unire righe raggruppate in una singola cella con pochi clic. Aggiunge automaticamente separatori personalizzati come virgole, spazi o interruzioni di riga per soddisfare diverse esigenze di presentazione dei dati.

1. Evidenzia le celle che contengono i tuoi dati. Vai su "Kutools" > "Unisci e Dividi" > "Unione avanzata righe".
2. Nella finestraUnione avanzata righe configura come segue:
   1. Clicca sulla colonna in base alla quale vuoi combinare le righe e impostala come "chiave primaria".
   2. Per la colonna che desideri concatenare, come la colonna "Nomi" in questo caso, specifica un delimitatore nella sezione "Unisci" sotto il campo "Calcolo" per questa colonna.
   3. Clicca sul pulsante "OK".
   4. 

Risultato: Kutools unirà automaticamente i dati in base al gruppo in una singola cella con un delimitatore specifico.

Raggruppa e concatena con codice VBA

Puoi anche utilizzare VBA per concatenare righe in base a un gruppo dinamicamente.

1. Premi i tasti "Alt" + "F11" per abilitare la finestra "Microsoft Visual Basic for Applications".
2. Nell'editor di codice, clicca su "Strumenti" > "Riferimenti" per abilitare la finestra di dialogo "Riferimenti", seleziona "Microsoft Scripting Runtime" e salva le modifiche.
   
3. Vai su "Inserisci" > "Modulo" e incolla il seguente codice VBA nella finestra Modulo.
   VBA: Concatena righe in una cella in base al gruppo

   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. Premi il tastoF5 per eseguire lo script e segui eventuali prompt per selezionare l'intervallo di dati e specificare le colonne chiave.
   

Il risultato è mostrato come segue:

Quando si lavora con i dati in Excel, raggruppare e unire celle è un compito comune ma complesso. A seconda delle tue esigenze e degli strumenti disponibili, puoi scegliere tra diversi metodi per raggiungere questo obiettivo. Seleziona lo strumento e il metodo più appropriati in base alle tue esigenze specifiche e preferenze per rendere il tuo lavoro in Excel più efficiente e conveniente. Se sei interessato a esplorare ulteriori suggerimenti e trucchi di Excel, il nostro sito web offre migliaia di tutorial per aiutarti a padroneggiare Excel.

Demo: Raggruppa e concatena con Unione avanzata righe di Kutools per Excel