Come dividere le celle e riempire con valori duplicati in Excel?

Se si dispone di un foglio di lavoro che contiene numerose celle unite e ora è necessario separarle e compilare automaticamente i valori originali dalle celle unite come mostrato nelle schermate seguenti. Come hai potuto affrontare rapidamente questo compito?

Dividi le celle e riempi con i dati duplicati con il comando Vai a speciale

Dividi le celle e riempi con i dati duplicati con il codice VBA

Dividi le celle e riempi con i dati duplicati con un clic

Dividi le celle e riempi con i dati duplicati con il comando Vai a speciale

Grazie alla Vai a speciale comando, puoi dividere le celle e riempire i valori. Ma questo metodo è un po 'fastidioso, per favore procedi come segue:

1. Seleziona le colonne che hanno celle unite.

2. Clic Casa > Unisci e centra > Dividi celle. Vedi screenshot:

3. E le celle unite sono state separate e solo la prima cella verrà riempita con i valori originali. Quindi seleziona nuovamente l'intervallo.

4. Quindi fare clic Casa > Trova e seleziona > Vai a speciale. Nel Vai a speciale finestra di dialogo, selezionare Blanks opzione. Vedi screenshot:

5. E poi clicca OK, sono state selezionate tutte le celle vuote nell'intervallo. Quindi input = e premere Up tasto freccia sulla tastiera. Vedi screenshot:

6. Quindi premere Ctrl + Invio chiavi, tutte le celle vuote sono state riempite con i dati uniti originali. Vedi screenshot:

Dividi le celle e riempi con i dati duplicati con il codice VBA

Con il seguente codice VBA, puoi dividere rapidamente le celle e riempire i valori.

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

4. Clicchi OK, quindi le celle unite sono state separate e riempite automaticamente con i valori uniti originali.

Dividi le celle e riempi con i dati duplicati con un clic

Grazie alla Separa cella utilità di Kutools for Excel, puoi dividere le celle e riempire con dati duplicati con un clic, questo metodo è molto semplice e pratico.

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

1. Seleziona le colonne che desideri dividere e compila i dati.

2. Clic Kutools > Unisci e dividi > Dividi celle e valore di riempimento, vedi screenshot:

3. E le celle unite sono state separate e riempite con i valori duplicati contemporaneamente. Vedi screenshot:

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

Articolo correlato:

Unisci righe adiacenti con gli stessi dati in Excel