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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Προσδιορίστε όλα τα συγχωνευμένα κελιά με τον κώδικα 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 κλειδί για την εκτέλεση αυτής της μακροεντολής. Όλα τα συγχωνευμένα κελιά στο ενεργό φύλλο εργασίας αναγνωρίζονται και επισημαίνονται, δείτε το στιγμιότυπο οθόνης:

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 κλειδί για την εκτέλεση αυτής της μακροεντολής, όλα τα συγχωνευμένα κελιά παρατίθενται σε ένα αναδυόμενο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:

Σχετικά Άρθρα