Hoppa till huvudinnehåll

Hur slår man samman celler och fyller med dubbla värden i Excel?

Om du har ett kalkylblad som innehåller flera sammanslagna celler och nu måste du slå samman dem och automatiskt fylla i de ursprungliga värdena från de sammanslagna cellerna enligt följande skärmdumpar. Hur kunde du snabbt hantera den här uppgiften?

Slå samman celler och fyll med dubbla data med kommandot Gå till special

Slå samman celler och fyll med dubblettdata med VBA-kod

Slå samman celler och fyll med dubbla data med ett klick


pil blå höger bubbla Slå samman celler och fyll med dubbla data med kommandot Gå till special

Med Gå till Special kommando kan du slå samman celler och fylla i värdena. Men den här metoden är lite besvärlig, gör så här:

1. Välj de kolumner som har sammanfogade celler.

2. Klicka Hem > Slå ihop och centrera > Ta bort celler. Se skärmdump:

3. Och de sammanslagna cellerna har tagits bort och endast den första cellen fylls med de ursprungliga värdena. Och välj sedan intervallet igen.

4. Klicka sedan Hem > Hitta och välj > Gå till Special. I Gå till Special dialogrutan väljer du Blanks alternativ. Se skärmdump:

5. Och klicka sedan på OK, alla tomma celler i intervallet har valts. Ange sedan = och tryck Up piltangenten på tangentbordet. Se skärmdump:

6. Tryck sedan på Ctrl + Enter nycklar, alla tomma celler har fyllts med de ursprungliga sammanslagna uppgifterna. Se skärmdump:


pil blå höger bubbla Slå samman celler och fyll med dubblettdata med VBA-kod

Med följande VBA-kod kan du snabbt slå samman cellerna och fylla i värdena.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulernafönster.

Under 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 = Falskt för varje Rng i arbeteRng Om Rng.MergeCells sedan med Rng.MergeArea .UnMerge .Formula = Rng.Formula Avsluta med slut om nästa applikation.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. Tryck sedan på F5 för att köra den här koden visas en dialogruta för att välja ett intervall att arbeta med, se skärmdump:

4. Klicka OK, sedan har de sammanslagna cellerna tagits bort och automatiskt fyllts i de ursprungliga sammanslagna värdena.


pil blå höger bubbla Slå samman celler och fyll med dubbla data med ett klick

Med Ta bort cell nytta av Kutools för Excel, kan du slå samman celler och fylla med dubbla data med ett klick, den här metoden är väldigt enkel och praktisk.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

När du har installerat Kutools för Excelkan du göra enligt följande:

1. Välj de kolumner som du vill slå samman och fyll i data.

2. Klicka Kutools > Slå ihop och dela > Ta bort celler och fyll värde, se skärmdump:

3. Och de sammanslagna cellerna har tagits bort och fyllts med dubbla värden på en gång. Se skärmdumpar:


pil blå höger bubbla Slå samman celler och fyll med dubbla data med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Slå samman intilliggande rader med samma data i Excel

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (48)
No ratings yet. Be the first to rate!
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
This comment was minimized by the moderator on the site
Thx!!! It saved me a 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