Vai al contenuto principale

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


freccia blu freccia destra 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:


freccia blu freccia destra 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.


freccia blu freccia destra 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.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni

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:


freccia blu freccia destra Separa le celle e riempile con dati duplicati con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articolo correlato:

Unisci righe adiacenti con gli stessi dati in Excel

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (49)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, It really made life easier
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations