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!