Come unire rapidamente righe adiacenti con gli stessi dati in Excel?

Supponendo che tu abbia un foglio di lavoro con gli stessi dati nelle righe adiacenti e ora desideri unire le stesse celle in una cella, in modo che i dati appaiano puliti e belli. Come si uniscono righe adiacenti con gli stessi dati in modo rapido e conveniente? Oggi ti presenterò un modo rapido per risolvere questo problema.

Unisci righe adiacenti degli stessi dati con codice VBA

Unisci righe adiacenti degli stessi dati con Kutools per Excel

Dividi celle e riempi con valori duplicati in Excel

Unisci righe adiacenti degli stessi dati con codice VBA

Ovviamente puoi unire gli stessi dati con Unisci e centra comando, ma se ci sono centinaia di celle da unire, questo metodo richiederà molto tempo. Quindi il seguente codice VBA può aiutarti a unire facilmente gli stessi dati.

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla la seguente macro nel file Modulifinestra.

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. Quindi premere il tasto F5 chiave per eseguire questo codice, viene visualizzata una finestra di dialogo sullo schermo per la selezione di un intervallo con cui lavorare. Vedi screenshot:

4. Quindi fare clic su OK, gli stessi dati nella colonna A verranno uniti. Vedi screenshot:

Unisci righe adiacenti degli stessi dati con Kutools per Excel

Grazie alla Unisci le stesse celle utilità di Kutools for Excel, puoi unire rapidamente gli stessi valori in più colonne con un clic.

Dopo l'installazione Kutools for Excel, puoi fare come segue:

1. Seleziona le colonne in cui desideri unire le righe adiacenti con gli stessi dati.

2. Clic Kutools > Unisci e dividi > Unisci le stesse celle, vedi screenshot:

3. E poi gli stessi dati nelle colonne selezionate sono stati uniti in una cella. Vedi screenshot:

Fai clic per scaricare Kutools per Excel e prova gratuita ora!

Per saperne di più, visita questo Unisci le stesse celle caratteristica.

Demo: unisci le stesse celle in una cella o separa per riempire i valori duplicati: