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

Πώς να φιλτράρετε κελιά με έντονους χαρακτήρες στο Excel;

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

Φιλτράρετε έντονα κελιά με τη βοηθητική στήλη
Φιλτράρετε έντονα κελιά με τον κωδικό VBA
Φιλτράρετε εύκολα τολμηρά κελιά με ένα καταπληκτικό εργαλείο
Περισσότερα σεμινάρια για φιλτράρισμα δεδομένων…


Φιλτράρετε έντονα κελιά με τη στήλη βοήθειας

Ας υποθέσουμε ότι πρέπει να φιλτράρετε όλα τα έντονα κελιά στη στήλη B όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, κάντε τα εξής:

Η παρακάτω συνάρτηση που καθορίζεται από τον χρήστη βοηθά στον προσδιορισμό του εάν ένα κελί σε μια στήλη είναι έντονη ή όχι και, στη συνέχεια, επιστρέφει τα αποτελέσματα ως ΑΛΗΘΕΙΑ ή Λάθος σε μια βοηθητική στήλη. Μπορείτε να φιλτράρετε όλα τα Αληθινά αποτελέσματα για να εμφανίσετε μόνο τα έντονα κελιά στη στήλη Β.

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογή παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο Module. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Φιλτράρετε κελιά με έντονους χαρακτήρες

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. Πάτα το άλλος + Q για να κλείσετε το παράθυρο κώδικα.

4. Επιλέξτε ένα κενό κελί που βρίσκεται δίπλα στον πίνακα (το επιλεγμένο κελί πρέπει να εντοπίσει στην ίδια σειρά της πρώτης σειράς στον πίνακα φίλτρου), αντιγράψτε τον παρακάτω τύπο σε αυτό και πατήστε το εισάγετε κλειδί.

= IsBold (B2)

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

6. Επιλέξτε την κεφαλίδα της στήλης βοηθού, κάντε κλικ στο ημερομηνία > Φίλτρο. Κάντε κλικ στο κουμπί βέλους εκτός από το κελί κεφαλίδας, επιλέξτε το ΑΛΗΘΙΝΗ μόνο πλαίσιο και, στη συνέχεια, κάντε κλικ στο Εντάξει.

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


Φιλτράρετε γρήγορα έντονα κελιά σε μια στήλη με πολλά κλικ στο Excel:

Η Φιλτράρετε τα έντονα κελιά χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να φιλτράρετε γρήγορα όλα τα έντονα κελιά σε μια συγκεκριμένη στήλη με αρκετά κλικ, όπως φαίνεται στην παρακάτω επίδειξη.
Πραγματοποιήστε λήψη του πλήρους χαρακτηριστικού 30 ημερών δωρεάν διαδρομής του Kutools για Excel τώρα!


Φιλτράρετε έντονα κελιά με τον κωδικό VBA

Ο παρακάτω κώδικας VBA σας επιτρέπει να φιλτράρετε απευθείας όλα τα έντονα κελιά σε μία στήλη. Κάντε τα εξής.

1. Επιλέξτε το εύρος στηλών που θα φιλτράρετε όλα τα έντονα κελιά εκτός από το κελί κεφαλίδας. Σε αυτήν την περίπτωση, επιλέγω B2: B16.

2. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.

3. Στο Microsoft Visual Basic για εφαρμογή παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Φιλτράρετε έντονα κελιά σε μια στήλη

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

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


Φιλτράρετε εύκολα τολμηρά κελιά με ένα καταπληκτικό εργαλείο

Σε αυτήν την ενότητα, σας προτείνουμε ένα εύχρηστο εργαλείο - το Φιλτράρετε τα έντονα κελιά χρησιμότητα του Kutools για Excel. Με αυτό το βοηθητικό πρόγραμμα, όλα τα έντονα κελιά σε επιλεγμένη στήλη φιλτράρονται αμέσως με πολλά κλικ.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Επιλέξτε το εύρος στηλών που θα φιλτράρετε τα έντονα κελιά, κάντε κλικ στο Kutools Plus> Ειδικό φίλτρο > Έντονο φίλτρο για να το ολοκληρώσω. Δείτε παρακάτω την επίδειξη:

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


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

Φιλτράρετε πολλές στήλες ταυτόχρονα στο Excel
Μετά το φιλτράρισμα μιας στήλης με τη λειτουργία φίλτρου, μόνο κριτήρια AND μπορούν να εφαρμοστούν σε περισσότερες από μία στήλες. Σε αυτήν την περίπτωση, πώς θα μπορούσατε να εφαρμόσετε τα κριτήρια AND και OR για να φιλτράρετε ταυτόχρονα πολλές στήλες στο φύλλο εργασίας του Excel; Οι μέθοδοι σε αυτό το άρθρο μπορούν να σας βοηθήσουν.

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

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

Φιλτράρετε σειρές με βάση μια επιλογή λίστας σε άλλο φύλλο
Στο Excel, συνήθως φιλτράρουμε σειρές βάσει κριτηρίων, αλλά αν υπάρχουν δύο λίστες, η μία είναι στο Φύλλο1 και η άλλη στο Φύλλο2, θα μπορούσατε να έχετε κάποια κόλπα για να φιλτράρετε γρήγορα τις σειρές στο Φύλλο1 με βάση τη λίστα στο Φύλλο2; Εδώ αυτό το άρθρο παρουσιάζει τους τρόπους επίλυσης αυτής της εργασίας.

Φιλτράρετε όλα τα σχετικά δεδομένα από συγχωνευμένα κελιά στο Excel
Ας υποθέσουμε ότι υπάρχει μια στήλη συγχωνευμένων κελιών στο εύρος δεδομένων σας και τώρα, πρέπει να φιλτράρετε αυτήν τη στήλη με συγχωνευμένα κελιά για να εμφανίσετε όλες τις σειρές που σχετίζονται με κάθε συγχωνευμένο κελί, όπως φαίνεται παρακάτω τα στιγμιότυπα οθόνης. Στο Excel, η δυνατότητα φίλτρου σάς επιτρέπει να φιλτράρετε μόνο το πρώτο στοιχείο που σχετίζεται με τα συγχωνευμένα κελιά, σε αυτό το άρθρο, μιλάμε για τον τρόπο φιλτραρίσματος όλων των σχετικών δεδομένων από συγχωνευμένα κελιά στο 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 (16)
Rated 4.5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Thanks for sharing, it works wonderful, thank you!
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Thanks for the formula..it helped
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
I've used this technique and had an issue when trying to copy the bold data. It only copies some of the data for some reason. Is there any way of copying only the bold data using this technique? Thanks, Richard
This comment was minimized by the moderator on the site
Dear richard skins,



We didn't encounter the problem as you mentioned. Would you please provide a screenshot with details of your operation?



Thank you for your comment!
This comment was minimized by the moderator on the site
Hi, I'm a complete excel novice, i've done the following technique but now need to copy the data which is bold/true. When I have tried to do this is won't copy what is highlighted. Any ideas on how I can copy the data? Thanks, Richard
This comment was minimized by the moderator on the site
@RICHARD Can u please provide any screenshot of your spreadsheet showing what u are exactly trying to do?
This comment was minimized by the moderator on the site
Thanks for sharing. It works wonderful.
This comment was minimized by the moderator on the site
Hi I am using this code and its working fine but whenever I click on cancel the dialogue box a popup window appear and shows some error. Can you please tell me how to remove that error. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Please Select a Range", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False For Each myRange In Selection If myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Dear Nitin Jain,

Sorry to reply so late!

We have found the proble and fixed it already. The VBA script in the article is now updated,

Thank you for your comment!
This comment was minimized by the moderator on the site
Simple and brilliant, thank you!
This comment was minimized by the moderator on the site
This worked perfectly, thank you!!! :D :lol:
This comment was minimized by the moderator on the site
I presume that column A is the reference Column with Bold cells. I create a Name "Bold?" with the refer to as below =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) In column B, I type: =Bold? Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
@cadafi ur formula works fine but it is not the optimised or efficient use of it. Rather we should use direct reference of the range or a cell in place of that complete offset command. Like the one as follows: =GET.CELL(20,'Sheet1'!A1) Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
Thanks Mohamand Faizan. You are entirely correct.
This comment was minimized by the moderator on the site
@Mohammad Faizan You are entirely correct. Thanks.
This comment was minimized by the moderator on the site
@Cadafi.... thats brilliant... wondering how it works though!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations