Come separare le celle unite e riempirle con valori duplicati in Excel?

Se hai un foglio di lavoro che contiene numerose celle unite, e ora devi separarle e riempire automaticamente verso il basso i valori originali delle celle unite come mostrato negli screenshot seguenti. Come potresti gestire rapidamente questo compito?

Separa le celle unite e riempile con dati duplicati utilizzando il comando Vai a Speciale

Separa le celle unite e riempile con dati duplicati utilizzando il codice VBA

Separa le celle unite e riempile con dati duplicati con un solo clic

Separa le celle unite e riempile con dati duplicati utilizzando il comando Vai a Speciale

Con il comando Vai a Speciale, puoi separare le celle unite e riempire verso il basso i valori. Tuttavia, questo metodo è un po' complicato, segui i passaggi seguenti:

1. Seleziona le colonne che contengono celle unite.

2. Clicca su Home > Unisci e Centra > Separa Celle. Vedi screenshot:

3. Le celle unite sono state separate e solo la prima cella sarà riempita con i valori originali. Dopodiché, seleziona nuovamente l'intervallo.

4. Quindi clicca su Home > Trova e Seleziona > Vai a Speciale. Nella finestra di dialogo Vai a Speciale, seleziona l' opzione Vuoti. Vedi screenshot:

5. Poi clicca OK, tutte le celle vuote nell'intervallo saranno selezionate. Quindi inserisci = e premi il tasto Freccia Su sulla tastiera. Vedi screenshot:

6. Quindi premi i tasti Ctrl + Invio, tutte le celle vuote saranno riempite con i dati uniti originali. Vedi screenshot:

Separa le celle unite e riempile con dati duplicati utilizzando il codice VBA

Con il seguente codice VBA, puoi separare rapidamente le celle unite e riempire verso il basso i valori.

1. Tieni premuti i tasti ALT + F11, si aprirà la finestra Microsoft Visual Basic per Applicazioni.

2. Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra Modulo.

Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng.MergeCells Then
        With Rng.MergeArea
            .UnMerge
            .Formula = Rng.Formula
        End With
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Quindi premi il tasto F5 per eseguire questo codice, apparirà una finestra di dialogo per selezionare un intervallo con cui lavorare, vedi screenshot:

4. Clicca OK, quindi le celle unite saranno separate e riempite automaticamente con i valori uniti originali.

Separa le celle unite e riempile con dati duplicati con un solo clic

Con l'utilità Separa Celle di Kutools per Excel, puoi separare le celle e riempirle con dati duplicati con un solo clic, questo metodo è molto semplice e pratico.

Dopo aver installato Kutools per Excel, puoi fare come segue:

1. Seleziona le colonne che desideri separare e riempire verso il basso con i dati.

2. Clicca su Kutools > Unisci e Dividi > Separa Celle e Riempie Valore, vedi screenshot:

3. E le celle unite saranno separate e riempite con i valori duplicati immediatamente. Vedi screenshot:

Separa le celle unite e riempile con dati duplicati con Kutools per Excel

Articolo correlato:

Unisci righe adiacenti con gli stessi dati in Excel