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

Πώς να αναγνωρίσετε και να επιλέξετε όλα τα συγχωνευμένα κελιά στο Excel;

Γνωρίζετε πώς να βρείτε και να επιλέξετε όλα τα συγχωνευμένα κελιά στο Excel; Ακολουθούν τρεις δροσεροί δύσκολοι τρόποι για να προσδιορίσετε και να επιλέξετε γρήγορα όλα τα συγχωνευμένα κελιά σε μια επιλογή ή περιοχή στο Excel.

doc επιλέξτε συγχωνευμένα κελιά 4

Προσδιορίστε και επιλέξτε όλα τα συγχωνευμένα κελιά με εντολή Εύρεση

Επιλέξτε γρήγορα και μετρήστε όλα τα συγχωνευμένα κελιά με το Kutools για Excel

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


Προσδιορίστε και επιλέξτε όλα τα συγχωνευμένα κελιά με εντολή Εύρεση

Μπορείτε να αναγνωρίσετε και να επιλέξετε όλα τα συγχωνευμένα κελιά στο ενεργό φύλλο εργασίας έως Εύρεση εντολή με τα ακόλουθα βήματα:

1. Κάντε κλικ στο Home > Εύρεση & Επιλογή > Εύρεση για να ανοίξετε το Εύρεση και αντικατάσταση κουτί διαλόγου. Μπορείτε επίσης να ανοίξετε το Εύρεση και αντικατάσταση πλαίσιο διαλόγου με το πάτημα του Ctrl + F κλειδιά.

2. Κάντε κλικ στο Μορφή κουμπί στο πλαίσιο διαλόγου, (Εάν δεν μπορείτε να μάθετε το Μορφή κουμπί, κάντε κλικ στο Επιλογές για να αναπτύξετε το παράθυρο διαλόγου.) δείτε το στιγμιότυπο οθόνης:

doc επιλέξτε συγχωνευμένα κελιά 1

3. Στο αναδυόμενο Εύρεση μορφής πλαίσιο διαλόγου, επιλέξτε μόνο το Συγχώνευση κελιών επιλογή του Έλεγχος κειμένου κάτω από το τμήμα ευθυγραμμία καρτέλα και κάντε κλικ στο κουμπί OK.

doc επιλέξτε συγχωνευμένα κελιά 2

4. Τώρα επιστρέφετε στο Εύρεση και αντικατάσταση , κάντε κλικ στην επιλογή Βρείτε όλα κουμπί. Όλα τα συγχωνευμένα κελιά παρατίθενται στο κάτω μέρος αυτού του παραθύρου διαλόγου. Επιλέξτε όλα τα αποτελέσματα εύρεσης κρατώντας πατημένο το αλλαγή κλειδί.

Τώρα όλα τα συγχωνευμένα κελιά στο ενεργό φύλλο επιλέγονται όταν επιλέγετε όλα τα αποτελέσματα εύρεσης. Δείτε το στιγμιότυπο οθόνης:

doc επιλέξτε συγχωνευμένα κελιά 3

Συμβουλές: Εάν θέλετε να αναγνωρίσετε, να βρείτε και να επιλέξετε συγχωνευμένα κελιά μόνο σε μια επιλογή, πρέπει πρώτα να επιλέξετε το εύρος.


Επιλέξτε και μετρήστε όλα τα συγχωνευμένα κελιά με το Kutools για Excel

Kutools για Excel's Επιλέξτε Συγχωνευμένα κελιά Το εργαλείο θα σας βοηθήσει να εντοπίσετε, να βρείτε και να επιλέξετε όλα τα συγχωνευμένα κελιά σε μια επιλογή με ένα μόνο κλικ.

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα! )

1. Επιλέξτε το εύρος δεδομένων που θέλετε να επιλέξετε τα συγχωνευμένα κελιά.

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

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

doc επιλέξτε συγχωνευμένα κελιά 7

Άκρο: Για να χρησιμοποιήσετε αυτήν τη δυνατότητα, θα πρέπει να εγκαταστήσετε Kutools για Excel πρώτα, παρακαλώ κάντε κλικ για λήψη και έχετε μια δωρεάν δοκιμή 30 ημερών τώρα.

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

VBA 1: Προσδιορίστε και επισημάνετε όλα τα συγχωνευμένα κελιά

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

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

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. πάτα το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής. Όλα τα συγχωνευμένα κελιά στο ενεργό φύλλο εργασίας αναγνωρίζονται και επισημαίνονται, δείτε το στιγμιότυπο οθόνης:

doc επιλέξτε συγχωνευμένα κελιά 4

VBA 2: Αναγνώριση και λίστα όλων των συγχωνευμένων κελιών

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

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

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

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

doc επιλέξτε συγχωνευμένα κελιά 5