Come combinare più righe in un’unica riga in base ai valori duplicati in Excel?
Forse disponete dei dati mostrati nello screenshot seguente: nella colonna A (Nome prodotto) sono presenti alcuni elementi duplicati. Ora occorre rimuovere le voci duplicate nella colonna A, combinando però i valori corrispondenti nella colonna B. Fate riferimento agli screenshot:
 |  |  |
Esistono metodi efficaci per portare a termine questo compito?
Combinare più Riga duplicata in uno con codice VBA
Combinare più Riga duplicata in uno Kutools per Excel
Combinare più Riga duplicata e sommare/mediare i valori con Kutools per Excel
Combinare più Riga duplicata in uno con codice VBA
Il seguente codice VBA aiuta a combinare le righe duplicate in base al valore della colonna A. È applicabile esclusivamente a due colonne, quindi risulta utile se i tuoi dati sono distribuiti su due sole colonne.
1. Tenere premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del modulo.
Codice VBA: combinare più righe in una sola
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Premere quindi il tasto F5: apparirà una finestra di dialogo che chiederà di selezionare l'intervallo da combinare. Vedere lo screenshot:
4. Fare quindi clic su OK e i valori nella colonna B saranno combinati in un unico record, separati da spazi.
Note:
1. Questo codice potrebbe danneggiare i dati originali; ti consigliamo pertanto di crearne prima un backup.
2. Questo codice funziona esclusivamente con due colonne: se ne hai di più, combinerà soltanto le prime due ed eliminerà i dati delle restanti. Usalo con cautela.
Combinare più Riga duplicata in uno Kutools per Excel
Dato che il metodo precedente presenta alcune limitazioni e rischi, esiste un modo pratico e sicuro per portare a termine questa operazione? Grazie all’utilità Kutools per Excel e alla sua funzione Unione avanzata righe, puoi rimuovere rapidamente le righe duplicate nelle colonne di riferimento e unire o calcolare automaticamente i dati corrispondenti nelle celle appropriate.
Kutools per Excel include oltre 300 strumenti pratici per Excel. Prova gratuita illimitata per 30 giorni! Scaricalo ora.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Seleziona l’intervallo di dati in cui vuoi unire i duplicati.
2. Fare quindi clic su Kutools > Unisci e Dividi > Unione avanzata righe.
3. Nella finestra di dialogo Unione avanzata righe, seleziona il nome della colonna come Colonna chiave in base alla quale combinare i valori, quindi fai clic su Colonna chiave.
4. Clicca quindi sulla colonna i cui valori desideri unire in un unico record, poi seleziona Tipo di unione e scegli Combina soltanto con separatore. Infine, indica un separatore dall’elenco a destra per distinguere i valori uniti. Vedere lo screenshot:
5. Al termine delle impostazioni, fai clic su OK e i dati verranno uniti in base alla colonna chiave e separati dai separatori scelti.
Nota: Se non è necessario impostare operazioni per le colonne restanti, lasciare lo stato predefinito.
Combinare più Riga duplicata e sommare/mediare i valori con Kutools per Excel
Grazie a questa versatile utilità Unione avanzata righe, puoi combinare righe duplicate ed eseguire anche calcoli sui relativi valori.
1. Selezionare l’intervallo di dati per cui si desidera combinare i duplicati.
2. Apri la finestra di dialogo Unione avanzata righe;
- (1.) Selezionare un nome di colonna come Colonna chiave in base al quale calcolare i valori di altre colonne, quindi fare clic su Colonna chiave;
- (2.) Seleziona la colonna sui cui valori devi eseguire dei calcoli, quindi fai clic su Tipo di unione > Combina calcolo e scegli il tipo di calcolo desiderato; in questo caso, seleziono Somma. Vedere lo screenshot:
3. Se non è necessario impostare operazioni per le colonne restanti, lascia lo stato predefinito e fai clic su OK: i valori duplicati nella colonna A verranno uniti e i relativi valori nella colonna B sommati. Vedere gli screenshot:
 | |  |
Note:
1. Se si seleziona l’opzione Includi titoli, le intestazioni (ovvero la prima riga) dell’intervallo verranno ignorate durante l’applicazione di questa funzionalità.
2. Utilizza valori formattati: conserva la formattazione dei valori dopo aver combinato le celle duplicate.
3. Questa funzionalità non è disponibile per i dati filtrati.
Fai clic per scoprire di più sulla funzione Unione avanzata righe.
Articolo correlato:
Combinare Riga duplicata e sommare i valori
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi