Note: The other languages of the website are Google-translated. Back to English

Kako odstraniti celice in jih napolniti s podvojenimi vrednostmi v Excelu?

Če imate delovni list, ki vsebuje številne združene celice, jih morate zdaj razdružiti in samodejno izpolniti prvotne vrednosti iz združenih celic, kot je prikazano na naslednjih zaslonih. Kako bi se lahko hitro spopadli s to nalogo?

Z ukazom Pojdi na posebno odstranite celice in jih napolnite s podvojenimi podatki

Odklopite celice in napolnite s podvojenimi podatki s kodo VBA

Odklopite celice in z enim klikom napolnite podvojene podatke


puščica modri desni mehurček Z ukazom Pojdi na posebno odstranite celice in jih napolnite s podvojenimi podatki

Z Pojdi na posebno ukaz, lahko odstranite celice in izpolnite vrednosti. Toda ta metoda je nekoliko težavna, naredite naslednje:

1. Izberite stolpce, ki so združili celice.

2. Kliknite Home > Spoji in centriraj > Unmerge Celice. Oglejte si posnetek zaslona:

3. In združene celice niso združene in samo prva celica bo napolnjena z izvirnimi vrednostmi. In nato znova izberite obseg.

4. Nato kliknite Home > Poiščite in izberite > Pojdi na posebno. v Pojdi na posebno pogovorno okno, izberite Blanks možnost. Oglejte si posnetek zaslona:

5. In nato kliknite OK, izbrane so bile vse prazne celice v obsegu. Nato vnesite = in pritisnite Up puščična tipka na tipkovnici. Oglejte si posnetek zaslona:

6. Nato pritisnite Ctrl + Enter tipke, so bile vse prazne celice napolnjene z izvirnimi združenimi podatki. Oglejte si posnetek zaslona:


puščica modri desni mehurček Odklopite celice in napolnite s podvojenimi podatki s kodo VBA

Z naslednjo kodo VBA lahko celice hitro odstranite in izpolnite vrednosti.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduliokno.

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 Every 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. Nato pritisnite F5 tipko za zagon te kode, se prikaže pogovorno okno za izbiro obsega, s katerim želite delati, glejte posnetek zaslona:

4. klik OK, nato so združene celice združene in samodejno zapolnile prvotne združene vrednosti.


puščica modri desni mehurček Odklopite celice in z enim klikom napolnite podvojene podatke

Z Odstrani celico uporabnost Kutools za Excel, lahko z enim klikom odstranite celice in jih napolnite s podvojenimi podatki, ta način je zelo preprost in priročen.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Po namestitvi Kutools za Excel, lahko naredite naslednje:

1. Izberite stolpce, ki jih želite odstraniti, in izpolnite podatke.

2. Kliknite Kutools > Spoji in razdeli > Unmerge Celice & Fill Value, glej posnetek zaslona:

3. In združene celice so bile hkrati združene in napolnjene s podvojenimi vrednostmi. Oglejte si posnetke zaslona:


puščica modri desni mehurček Z Kutools za Excel odstranite celice in jih napolnite s podvojenimi podatki

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Spojite sosednje vrstice z enakimi podatki v Excelu


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (47)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za razdružitev in podvojeno kodo vba
Ta komentar je moderator na spletnem mestu minimiziral
Briljantno!! Koda VBA deluje brezhibno. odpravil težavo pri izvozu v CSV :)
Ta komentar je moderator na spletnem mestu minimiziral
VBA je deloval odlično, le da sem ga uporabil za 16-mestno številko, excel pa zadnjo številko spremeni v "0". Kakšen predlog za rešitev tega?
Ta komentar je moderator na spletnem mestu minimiziral
Obe metodi delujeta popolnoma dobro. Hvala vam :-)
Ta komentar je moderator na spletnem mestu minimiziral
OMG, pravkar si mi prihranil TOLIKO ČASA.
Ta komentar je moderator na spletnem mestu minimiziral
to je super. reševalec življenja
Ta komentar je moderator na spletnem mestu minimiziral
To mi je prihranilo nešteto ur, najlepša hvala za to. Opazil sem eno stvar, na katero sem naletel s posebnim ukazom Go To, ki me je za trenutek zmedla. Iskati sem moral v dokumentu in funkcija ctrl+enter kopira kodo, ne pa vrednosti. Priporočam (če želite iskati kot jaz), da kopirate vrstico, ki je bila združena, prilepite posebne vrednosti. S tem se boste znebili kode in naredili besedilo, ki ga je mogoče iskati. Še enkrat hvala za ta neverjeten trik.
Ta komentar je moderator na spletnem mestu minimiziral
Dobro opravljeno. Toda Function metoda je delovala najprej dobro pri prvih 2288 vrsticah, nato brez napak ali obvestila, samo ni naredila vrstic mimo tega. Imam več kot 6000 vrstic (vrstic). Če ročno izberem kateri koli obseg zunaj vrstice 2288, metoda Function ne deluje. Na žalost prodajalec podatkov združuje vrstice v dostavi podatkov v Excelu. Kakšen predlog? Hvala za odlične informacije.
Ta komentar je moderator na spletnem mestu minimiziral
Vaša navodila so tako preprosta kot močna!!! Dolgujem ti večerjo.
Ta komentar je moderator na spletnem mestu minimiziral
Gospod, rešili ste mi življenje, vi ste razlog, zakaj sem dal to stran med zaznamke :)!!
Ta komentar je moderator na spletnem mestu minimiziral
Izjemno koristno! Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zelo koristno..! Najlepša hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Polepšali ste mi teden! 8)
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, to je zelo koristna objava. Res mi prihrani veliko časa
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za vašo rešitev...
Ta komentar je moderator na spletnem mestu minimiziral
Čudovito! Nadaljujte z dobrim delom!
Ta komentar je moderator na spletnem mestu minimiziral
To je res koristno, vendar imam eno vprašanje. Ali obstaja način, da spremenite kodo VBA, da preskočite prazne spojene celice? Želim, da se celica ne spoji in podvoji samo, če je vrednost, ki ni prazna. Prepričan sem, da ne bi bilo potrebno več kot ena ali dve izjavi if/else, preprosto sem preveč neumen, da bi to storil.
Ta komentar je moderator na spletnem mestu minimiziral
Zelo lepa razlaga s posnetkom zaslona ... hvala lepa ...
Ta komentar je moderator na spletnem mestu minimiziral
Rešil mi življenje! Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Dobra. prihranil veliko časa Hvala
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL