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

Πώς να φιλτράρετε κελιά με έντονους χαρακτήρες στο 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.

Περισσότερα σεμινάρια για φιλτράρισμα δεδομένων…


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (15)
Βαθμολογήθηκε το 4.5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υποθέτω ότι η στήλη Α είναι η στήλη αναφοράς με έντονα κελιά. Δημιουργώ ένα Όνομα "Bold?" με την αναφορά όπως παρακάτω =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) Στη στήλη B, πληκτρολογώ: =Έντονη; Αντιγράψτε τον τύπο και, στη συνέχεια, χρησιμοποιήστε το αυτόματο φίλτρο για να φιλτράρετε την τιμή TRUE. ΕΓΙΝΕ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
@Cadafi.... αυτό είναι υπέροχο... αναρωτιέμαι πώς λειτουργεί όμως!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο τύπος @cadafi ur λειτουργεί καλά, αλλά δεν είναι η βελτιστοποιημένη ή αποτελεσματική χρήση του. Αντίθετα, θα πρέπει να χρησιμοποιούμε άμεση αναφορά του εύρους ή ένα κελί στη θέση αυτής της πλήρους εντολής μετατόπισης. Όπως αυτό ως εξής: =GET.CELL(20,'Φύλλο1'!A1) Αντιγράψτε τον τύπο και, στη συνέχεια, χρησιμοποιήστε το αυτόματο φίλτρο για να φιλτράρετε την τιμή TRUE. ΕΓΙΝΕ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
@Mohammad Faizan Έχετε απόλυτο δίκιο. Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ Mohamand Faizan. Έχεις απόλυτο δίκιο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε τέλεια, ευχαριστώ!!! :D :lol:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Απλό και υπέροχο, ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, χρησιμοποιώ αυτόν τον κωδικό και λειτουργεί καλά, αλλά κάθε φορά που κάνω κλικ στο κουμπί Ακύρωση του πλαισίου διαλόγου εμφανίζεται ένα αναδυόμενο παράθυρο και εμφανίζει κάποιο σφάλμα. Μπορείτε παρακαλώ να μου πείτε πώς να αφαιρέσω αυτό το σφάλμα. :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 Every myRange Στην επιλογή Αν myRange.Font.Bold = False Τότε myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Nitin Jain,

Συγγνώμη που απαντώ τόσο αργά!

Βρήκαμε το πρόβλημα και το διορθώσαμε ήδη. Το σενάριο VBA στο άρθρο έχει πλέον ενημερωθεί,

Σας ευχαριστούμε για το σχόλιό σας!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ που το μοιράστηκες. Λειτουργεί υπέροχα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, είμαι εντελώς αρχάριος στο Excel, έχω κάνει την ακόλουθη τεχνική αλλά τώρα πρέπει να αντιγράψω τα δεδομένα που είναι έντονες/αληθινές. Όταν προσπάθησα να το κάνω αυτό, δεν θα αντιγράψω αυτό που τονίζεται. Καμιά ιδέα για το πώς μπορώ να αντιγράψω τα δεδομένα; Ευχαριστώ, Ρίτσαρντ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
@RICHARD Μπορείτε να δώσετε οποιοδήποτε στιγμιότυπο οθόνης του υπολογιστικού φύλλου σας που δείχνει τι ακριβώς προσπαθείτε να κάνετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα αυτήν την τεχνική και είχα ένα πρόβλημα κατά την προσπάθεια αντιγραφής των έντονων δεδομένων. Αντιγράφει μόνο ορισμένα από τα δεδομένα για κάποιο λόγο. Υπάρχει κάποιος τρόπος αντιγραφής μόνο των έντονων δεδομένων χρησιμοποιώντας αυτήν την τεχνική; Ευχαριστώ, Ρίτσαρντ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητοί richard skins,



Δεν αντιμετωπίσαμε το πρόβλημα όπως αναφέρατε. Μπορείτε να δώσετε ένα στιγμιότυπο οθόνης με λεπτομέρειες της λειτουργίας σας;



Σας ευχαριστούμε για το σχόλιό σας!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τη φόρμουλα.. βοήθησε
Βαθμολογήθηκε το 4.5 από το 5
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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