Come unire rapidamente righe adiacenti con gli stessi dati in Excel?
Supponiamo che tu abbia una scheda di lavoro con gli stessi dati in righe adiacenti, e ora vuoi unire le celle uguali in una sola cella, in modo che i dati appaiano ordinati e belli. Come puoi unire rapidamente e facilmente le righe adiacenti con gli stessi dati? Oggi ti mostrerò alcuni modi veloci per risolvere questo problema.
Unisci righe adiacenti con gli stessi dati utilizzando il codice VBA
Unisci righe adiacenti con gli stessi dati utilizzando Kutools per Excel
Separa celle unite e riempile con valori duplicati in Excel
Unisci righe adiacenti con gli stessi dati utilizzando il codice VBA
Certo, puoi unire gli stessi dati con il comando Unisci e Centra, ma se ci sono centinaia di celle da unire, questo metodo sarà dispendioso in termini di tempo. Quindi il seguente codice VBA può aiutarti a unire facilmente gli stessi dati.
1. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra Modulo.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Poi premi il tasto F5 per eseguire questo codice; verrà visualizzata una finestra di dialogo sullo schermo per selezionare un intervallo con cui lavorare. Vedi screenshot:
4. Quindi clicca su OK, i dati uguali nella colonna A verranno uniti insieme. Vedi screenshot:
Unisci righe adiacenti con gli stessi dati utilizzando Kutools per Excel
Con l'utilità Unisci celle uguali di Kutools per Excel, puoi unire rapidamente gli stessi valori in più colonne con un solo clic.
Dopo aver installato Kutools per Excel, puoi fare come segue:
1. Seleziona le colonne in cui desideri unire le righe adiacenti con gli stessi dati.
2. Clicca su Kutools > Unisci e Dividi > Unisci Celle Uguali, vedi screenshot:
3. E poi i dati uguali nelle colonne selezionate verranno uniti in una cella. Vedi screenshot:
Clicca per Scaricare Kutools per Excel e prova gratis Ora!
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in