Skip i'r prif gynnwys

Sut i ddadmer celloedd a'u llenwi â gwerthoedd dyblyg yn Excel?

Os oes gennych daflen waith sy'n cynnwys nifer o gelloedd unedig, ac yn awr mae angen i chi eu dadmer a llenwi'r gwerthoedd gwreiddiol o'r celloedd unedig yn awtomatig fel y dangosir sgrinluniau canlynol. Sut allech chi ddelio â'r dasg hon yn gyflym?

Unmerge celloedd a'u llenwi â data dyblyg gyda Go To Special command

Unmerge celloedd a'u llenwi â data dyblyg gyda chod VBA

Unmerge celloedd a'u llenwi â data dyblyg gydag un clic


swigen dde glas saeth Unmerge celloedd a'u llenwi â data dyblyg gyda Go To Special command

Efo'r Ewch i Arbennig gorchymyn, gallwch ddadmer celloedd a llenwi'r gwerthoedd. Ond mae'r dull hwn ychydig yn drafferthus, gwnewch y camau canlynol:

1. Dewiswch y colofnau sydd wedi uno celloedd.

2. Cliciwch Hafan > Uno a Chanolfan > Celloedd Unmerge. Gweler y screenshot:

3. Ac mae'r celloedd unedig wedi bod yn ddigyfnewid a dim ond y gell gyntaf fydd yn cael ei llenwi â'r gwerthoedd gwreiddiol. Ac yna dewiswch yr ystod eto.

4. Yna cliciwch Hafan > Dod o Hyd i a Dewis > Ewch i Arbennig. Yn y Ewch i Arbennig blwch deialog, dewiswch Blanciau opsiwn. Gweler y screenshot:

5. Ac yna cliciwch OK, dewiswyd pob un o'r celloedd gwag yn yr ystod. Yna mewnbwn = ac yn y wasg Up allwedd saeth ar y bysellfwrdd. Gweler y screenshot:

6. Yna pwyswch Ctrl + Enter allweddi, mae'r holl gelloedd gwag wedi'u llenwi â'r data unedig gwreiddiol. Gweler y screenshot:


swigen dde glas saeth Unmerge celloedd a'u llenwi â data dyblyg gyda chod VBA

Gyda'r cod VBA canlynol, gallwch chi ddadmer y celloedd yn gyflym a llenwi'r gwerthoedd.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlauffenestr.

Is UnMergeSameCell () 'Upadateby Extendoffice
Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Gosod WorkRng = Set Cais.Selection WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math: = 8) Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Anghywir Ar Gyfer Pob Rng Mewn WorkRng Os Rng.MergeCells Yna Gyda Rng.MergeArea .UnMerge .Formula = Rng.Formula Diwedd Gyda Diwedd Os Y Cais Nesaf.DisplayAlerts = Gwir Gymhwysiad.ScreenUpdating = Gwir Ddiwedd Is

3. Yna pwyswch y F5 yn allweddol i redeg y cod hwn, arddangosir deialog ar gyfer dewis ystod i weithio gyda hi, gweler y screenshot:

4. Cliciwch OK, yna mae'r celloedd unedig wedi bod yn ddigyfnewid ac wedi'u llenwi'n awtomatig i lawr y gwerthoedd unedig gwreiddiol.


swigen dde glas saeth Unmerge celloedd a'u llenwi â data dyblyg gydag un clic

Efo'r Cell Unmerge cyfleustodau Kutools ar gyfer Excel, gallwch ddadmer celloedd a llenwi â data dyblyg gydag un clic, mae'r dull hwn yn syml iawn ac yn ddefnyddiol.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gallwch wneud fel a ganlyn:

1. Dewiswch y colofnau rydych chi am eu dadwneud a llenwch y data.

2. Cliciwch Kutools > Uno a Hollti > Celloedd Unmerge a Gwerth Llenwi, gweler y screenshot:

3. Ac mae'r celloedd unedig wedi bod yn ddigyfnewid ac wedi'u llenwi â'r gwerthoedd dyblyg ar unwaith. Gweler sgrinluniau:


swigen dde glas saeth Unmerge celloedd a llenwi â data dyblyg gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Uno rhesi cyfagos gyda'r un data yn Excel

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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