Πίνακας περιεχομένων
Μια από τις πιο σημαντικές και ευρέως χρησιμοποιούμενες εργασίες που πρέπει να εκτελέσουμε κατά την εργασία στο Excel είναι η κάθετη συγχώνευση κελιών χωρίς να χάσουμε δεδομένα. Σήμερα θα σας δείξω πώς μπορείτε να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα.
Κατεβάστε το βιβλίο ασκήσεων
Συγχώνευση κελιών κάθετα χωρίς απώλεια Data.xlsm4 εύκολες μέθοδοι για να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα
Εδώ έχουμε ένα σύνολο δεδομένων με τα ονόματα ορισμένων συγγραφέων και τα βιβλία τους σε ένα βιβλιοπωλείο που ονομάζεται Martin Bookstore.
Ο στόχος μας σήμερα είναι να συγχωνεύσουμε τα ονόματα βιβλίων του ίδιου συγγραφέα κάθετα σε ένα κελί χωρίς να χάσουμε δεδομένα.
1. Εκτελέστε το εργαλείο συγχώνευσης και κεντραρίσματος από τη γραμμή εργαλείων του Excel για να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα
Βήμα 1:
➤ Επιλέξτε την πρώτη ομάδα κελιών που θέλετε να συγχωνεύσετε (Τα βιβλία του Κάρολου Ντίκενς σε αυτό το παράδειγμα).
Βήμα 2:
➤ Πηγαίνετε στο Home> Συγχώνευση & Κέντρο εργαλείο στη γραμμή εργαλείων του Excel κάτω από την ενότητα που ονομάζεται Ευθυγράμμιση .
Βήμα 3:
➤ Κάντε κλικ στο αναπτυσσόμενο μενού.
➤ Από τις διαθέσιμες επιλογές, επιλέξτε Συγχώνευση & Κέντρο .
Βήμα 4:
➤ Κάντε κλικ στο Συγχώνευση & Κέντρο .
➤ Θα βρείτε την επιλεγμένη ομάδα κελιών σας να συγχωνεύεται σε ένα κελί, αλλά να περιέχει μόνο την τιμή από το πρώτο κελί (Great Dickens σε αυτό το παράδειγμα).
Βήμα 5:
➤ Μπορείτε να επαναλάβετε την ίδια διαδικασία για την υπόλοιπη ομάδα κελιών για να τα συγχωνεύσετε σε ένα ενιαίο κελί.
Διαβάστε περισσότερα: Πώς να συγχωνεύσετε και να κεντράρετε τα κελιά στο Excel
2. Χρησιμοποιήστε το σύμβολο Ampersand (&) για να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα
Η μέθοδος που αναφέρθηκε παραπάνω συγχωνεύει την ομάδα των κυττάρων σε ένα μόνο κύτταρο, αλλά δεν ικανοποιεί πλήρως την απαίτησή μας.
Διατηρεί την τιμή μόνο από το πρώτο κελί και όχι από όλα τα κελιά.
Αυτό σημαίνει ότι χάνει δεδομένα.
Για να συγχωνεύσετε τις τιμές από μια ομάδα κελιών σε ένα κελί, μπορείτε να χρησιμοποιήσετε έναν τύπο που αποτελείται από την εντολή Ampersand (&) σύμβολο.
Ο τύπος για την πρώτη ομάδα κελιών θα είναι:
=C4&", "&C5&", "&C6 Σημείωση:
- Εδώ χρησιμοποίησα κόμματα (,) ανάμεσα στα ονόματα των βιβλίων για να φαίνονται ευπαρουσίαστα. Μπορείτε να χρησιμοποιήσετε ό,τι θέλετε.
Στη συνέχεια, επαναλάβετε την ίδια διαδικασία για όλες τις ομάδες κυττάρων.
3. Χρησιμοποιήστε τύπο για να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα
Αντί να χρησιμοποιείτε το Ampersand (&) σύμβολο, μπορείτε να χρησιμοποιήσετε το Συνάρτηση CONCATENATE του Excel για τη συγχώνευση μιας ομάδας κελιών σε ένα κελί.
Ο τύπος για τη συγχώνευση της πρώτης ομάδας κελιών θα είναι:
=CONCATENATE(C4,", ",C5,", ",C6)
Σημείωση:
- Εδώ χρησιμοποίησα επίσης κόμματα (,) ανάμεσα στα ονόματα των βιβλίων. Μπορείτε να χρησιμοποιήσετε ό,τι θέλετε.
Στη συνέχεια, μπορείτε να χρησιμοποιήσετε αυτόν τον τύπο για την υπόλοιπη ομάδα κελιών για να τα συγχωνεύσετε σε ένα μόνο κελί.
4. Εκτελέστε κώδικες VBA για να συγχωνεύσετε κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα
Όλες οι προαναφερθείσες μέθοδοι λειτουργούν άψογα, αλλά και πάλι, δεν εκπληρώνουν πλήρως τον σκοπό μας.
Θέλουμε να παράγουμε μια τέτοια μέθοδο που θα συγχωνεύει όλες τις ομάδες κελιών σε μεμονωμένα κελιά με ένα μόνο κλικ.
Και ναι, υπάρχουν τρόποι για να το κάνετε αυτό. Σε αυτή την ενότητα, θα εξάγουμε μια μέθοδο χρησιμοποιώντας ένα VBA κώδικα που θα συγχωνεύσει όλες τις ομάδες κυττάρων σε μεμονωμένα κύτταρα με τον ευκολότερο δυνατό τρόπο.
Βήμα 1:
➤ Τύπος ALT+F11 στο πληκτρολόγιό σας. VBA θα ανοίξει το παράθυρο.
Βήμα 2:
➤ Πηγαίνετε στο Εισαγωγή στο παράθυρο VBA.
➤ Από τις διαθέσιμες επιλογές, επιλέξτε Ενότητα .
Βήμα 3:
➤ Ένα νέο παράθυρο ενότητας που ονομάζεται "Ενότητα 1" θα ανοίξει.
➤ Εισάγετε τα ακόλουθα VBA κώδικα στην ενότητα.
Κωδ:
Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub 
Βήμα 4:
➤ Αποθηκεύστε το βιβλίο εργασίας ως Βιβλίο εργασίας με δυνατότητα μακροεντολών του Excel .
Βήμα 5:
➤ Επιστρέψτε στο βιβλίο εργασίας σας και επιλέξτε το σύνολο δεδομένων (Χωρίς το Επικεφαλίδες στηλών ).
Βήμα 6:
➤ Τύπος ALT+F8 στο πληκτρολόγιό σας.
➤ Ένα παράθυρο διαλόγου που ονομάζεται Μάκρο θα ανοίξει. Επιλέξτε Συγχώνευση_σειρών και κάντε κλικ στο Εκτέλεση .
Βήμα 6:
➤ Θα εμφανιστεί ένα πλαίσιο προειδοποίησης που θα σας ενημερώσει ότι η συγχώνευση κελιών διατηρεί μόνο την τιμή του πάνω αριστερού κελιού και απορρίπτει τις άλλες τιμές.
➤ Κάντε κλικ στο OK .
Βήμα 7:
➤ Θα εμφανιστεί το ίδιο προειδοποιητικό πλαίσιο μερικές φορές. Κάντε κλικ στο OK κάθε φορά.
➤ Τέλος, θα βρείτε όλες τις ομάδες κελιών σας να έχουν συγχωνευτεί κάθετα σε μεμονωμένα κελιά, κάπως έτσι.
Συμπέρασμα
Χρησιμοποιώντας αυτές τις μεθόδους, μπορείτε να συγχωνεύσετε τα κελιά στο Excel κάθετα χωρίς να χάσετε δεδομένα. Γνωρίζετε κάποια άλλη μέθοδο ή έχετε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε.
