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

Πώς να καταργήσετε τη συγχώνευση κελιών και να γεμίσετε με διπλές τιμές στο 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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (47)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε για την αποσυγχώνευση και την αντιγραφή του κώδικα vba
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμπρός!! Ο κώδικας VBA λειτουργεί τέλεια. διόρθωσε το πρόβλημα εξαγωγής μου σε CSV :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το VBA λειτούργησε εξαιρετικά, εκτός από το ότι το χρησιμοποίησα για έναν 16ψήφιο αριθμό και το excel μετατρέπει το τελευταίο ψηφίο σε "0". Κάποια πρόταση για δουλειά για αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Και οι δύο μέθοδοι λειτουργούν τέλεια. Σας ευχαριστώ :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
OMG, μόλις με γλίτωσες ΤΟΣΟ ΧΡΟΝΟ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι φοβερό. σωτήριο ζωής
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό με έσωσε αμέτρητες ώρες, σας ευχαριστώ πολύ για αυτό. Παρατήρησα ένα πράγμα που συνάντησα με το Go To Special Command που με μπέρδεψε για ένα δευτερόλεπτο. Χρειάστηκε να ψάξω μέσα στο έγγραφο και η συνάρτηση ctrl+enter αντιγράφει τον κώδικα, αλλά όχι την τιμή. Συνιστώ (αν θέλετε να κάνετε αναζήτηση όπως έκανα εγώ) να αντιγράψετε τη σειρά που συγχωνεύτηκε, να επικολλήσετε ειδικές τιμές, τιμές. Αυτό θα απαλλαγεί από τον κώδικα και θα κάνει το κείμενο με δυνατότητα αναζήτησης. Σας ευχαριστώ και πάλι για αυτό το καταπληκτικό κόλπο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή δουλειά. Αλλά η μέθοδος συνάρτησης λειτούργησε πρώτα καλά στις πρώτες 2288 γραμμές, μετά χωρίς σφάλμα ή ειδοποίηση, απλώς δεν έκανε γραμμές πέρα ​​από αυτό. Έχω πάνω από 6000 γραμμές (σειρές). Εάν επιλέξω με μη αυτόματο τρόπο οποιοδήποτε εύρος πέρα ​​από τη γραμμή 2288, η μέθοδος Function δεν λειτουργεί. Δυστυχώς, ο προμηθευτής δεδομένων συγχωνεύει γραμμές στην παράδοση δεδομένων του Excel. Οποιεσδήποτε προτάσεις? Ευχαριστώ για τις εξαιρετικές πληροφορίες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Οι οδηγίες σας είναι τόσο απλές όσο ισχυρές!!! Σου χρωστάω ένα δείπνο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κύριε, μου έσωσες τη ζωή, είσαι ο λόγος που έβαλα σελιδοδείκτη αυτή τη σελίδα :)!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικά εξυπηρετικό! Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο..! Ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου έφτιαξες την εβδομάδα! 8)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ πολύ αυτή είναι μια πολύ χρήσιμη ανάρτηση. Πραγματικά μου εξοικονομεί πολύ χρόνο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ για τη λύση σου...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φοβερός! Συνεχίστε την καλή δουλειά!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι πραγματικά χρήσιμο, αλλά έχω μια ερώτηση. Υπάρχει τρόπος να τροποποιήσετε τον κώδικα VBA για να παραλείψετε κενά συγχωνευμένα κελιά; Θέλω να αποσυνδεθεί και να αντιγραφεί το κελί μόνο εάν υπάρχει άλλη τιμή εκτός από κενή. Είμαι σίγουρος ότι δεν θα χρειαζόταν πολύ περισσότερο από μια δήλωση if/else ή δύο, είμαι πολύ ανόητος για να το κάνω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ ωραία εξήγηση με στιγμιότυπο οθόνης... ευχαριστώ πολύ...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου έσωσε τη ζωή! Σε ευχαριστώ πάρα πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλό. εξοικονόμησε πολύ χρόνο Ευχαριστώ
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL