Μετάβαση στο κύριο περιεχόμενο

Πώς να καταργήσετε τη συγχώνευση κελιών και να γεμίσετε με διπλές τιμές στο Excel;

Εάν έχετε ένα φύλλο εργασίας που περιέχει πολλά συγχωνευμένα κελιά, και τώρα πρέπει να τα καταργήσετε και να συμπληρώσετε αυτόματα τις αρχικές τιμές από τα συγχωνευμένα κελιά, όπως φαίνεται παρακάτω τα στιγμιότυπα οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε γρήγορα αυτήν την εργασία;

Απελευθερώστε τα κελιά και γεμίστε με διπλά δεδομένα με την εντολή Go To Special

Απελευθερώστε τα κελιά και γεμίστε με διπλά δεδομένα με κωδικό VBA

Καταργήστε τη συγχώνευση κελιών και γεμίστε με διπλά δεδομένα με ένα κλικ


βέλος μπλε δεξιά φούσκα Απελευθερώστε τα κελιά και γεμίστε με διπλά δεδομένα με την εντολή Go To Special

Με την Πηγαίνετε στο ειδικό εντολή, μπορείτε να καταργήσετε τη συγχώνευση κελιών και να συμπληρώσετε τις τιμές. Αλλά αυτή η μέθοδος είναι κάπως ενοχλητική, κάντε τα εξής βήματα:

1. Επιλέξτε τις στήλες που έχουν συγχωνευθεί κελιά.

2. Κλίκ Αρχική > Συγχώνευση & Κέντρο > Απελευθέρωση κελιών. Δείτε το στιγμιότυπο οθόνης:

3. Και τα συγχωνευμένα κελιά έχουν καταργηθεί και μόνο το πρώτο κελί θα γεμίσει με τις αρχικές τιμές. Και μετά επιλέξτε ξανά το εύρος.

4. Στη συνέχεια κάντε κλικ στο κουμπί Αρχική > Εύρεση & Επιλογή > Πηγαίνετε στο ειδικό. Στην Πηγαίνετε στο ειδικό , επιλέξτε Κενά επιλογή. Δείτε το στιγμιότυπο οθόνης:

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK, έχουν επιλεγεί όλα τα κενά κελιά της περιοχής. Στη συνέχεια εισάγετε = και πατήστε το πλήκτρο Up πλήκτρο βέλους στο πληκτρολόγιο. Δείτε το στιγμιότυπο οθόνης:

6. Στη συνέχεια πατήστε Ctrl + Enter πλήκτρα, όλα τα κενά κελιά έχουν συμπληρωθεί με τα αρχικά συγχωνευμένα δεδομένα. Δείτε το στιγμιότυπο οθόνης:


βέλος μπλε δεξιά φούσκα Απελευθερώστε τα κελιά και γεμίστε με διπλά δεδομένα με κωδικό VBA

Με τον ακόλουθο κώδικα VBA, μπορείτε γρήγορα να αποσυμπιέσετε τα κελιά και να συμπληρώσετε τις τιμές.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησηςπαράθυρο.

Sub UnMergeSameCell () «Αναβάθμιση» 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. Στη συνέχεια πατήστε το F5 κλειδί για την εκτέλεση αυτού του κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή μιας περιοχής για εργασία, δείτε το στιγμιότυπο οθόνης:

4. Πατήστε OK, τότε τα συγχωνευμένα κελιά έχουν καταργηθεί και συμπλήρωσαν αυτόματα τις αρχικές συγχωνευμένες τιμές.


βέλος μπλε δεξιά φούσκα Καταργήστε τη συγχώνευση κελιών και γεμίστε με διπλά δεδομένα με ένα κλικ

Με την Απελευθέρωση κελιού χρησιμότητα του Kutools για Excel, μπορείτε να καταργήσετε τη συγχώνευση κελιών και να συμπληρώσετε διπλά δεδομένα με ένα κλικ, αυτή η μέθοδος είναι πολύ απλή και πρακτική.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες

Μετά την εγκατάσταση Kutools για Excel, μπορείτε να κάνετε τα εξής:

1. Επιλέξτε τις στήλες που θέλετε να καταργήσετε τη συγχώνευση και συμπληρώστε τα δεδομένα.

2. Κλίκ Kutools > Συγχώνευση & διαχωρισμός > Απελευθέρωση κελιών & τιμή συμπλήρωσης, δείτε το στιγμιότυπο οθόνης:

3. Και τα συγχωνευμένα κελιά έχουν συγχωνευτεί και γεμίσουν με τις διπλές τιμές ταυτόχρονα. Δείτε στιγμιότυπα οθόνης:


βέλος μπλε δεξιά φούσκα Απελευθερώστε τα κελιά και γεμίστε με διπλά δεδομένα με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικό άρθρο:

Συγχώνευση παρακείμενων σειρών με ίδια δεδομένα στο Excel

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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