Salt la conținutul principal

Cum se filtrează celulele după caractere aldine în Excel?

Puteți aplica stilul de font aldin pentru a formata datele sau conținutul în celulele din Excel, dar știți cum să filtrați celulele după celulele care conțin stil de caractere aldine în Excel? Acest articol colectează mai multe macrocomenzi VBA dificile pentru a filtra celulele după caractere aldine în Excel.

Filtrați celulele aldine cu coloana de ajutor
Filtrați celulele aldine cu codul VBA
Filtrează cu ușurință celulele îndrăznețe cu un instrument uimitor
Mai multe tutoriale pentru filtrarea datelor ...


Filtrați celulele aldine cu coloana de ajutor

Presupunând că trebuie să filtrați toate celulele aldine din coloana B, după cum este prezentat mai jos, vă rugăm să faceți următoarele:

Funcția de mai jos definită de utilizator ajută la identificarea dacă o celulă dintr-o coloană este îndrăzneață sau nu, și apoi returnează rezultatele ca ADEVĂRATE sau FALSE într-o coloană de ajutor. Puteți filtra toate rezultatele ADEVĂRATE pentru a afișa numai celulele aldine din coloana B.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.

2. În Microsoft Visual Basic pentru aplicație fereastră, faceți clic pe Insera > Modul, apoi copiați următorul cod VBA în fereastra Module. Vedeți captura de ecran:

Cod VBA: filtrați celulele după caractere aldine

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

3. apasă pe Alt + Q tastele pentru a închide fereastra de cod.

4. Selectați o celulă goală care este adiacentă tabelului (celula selectată trebuie localizată pe același rând din primul rând din tabelul de filtrare), copiați formula de mai jos în ea și apăsați tasta introduce cheie.

= IsBold (B2)

5. Continuați să selectați prima celulă de rezultat și trageți mânerul de umplere pentru a obține toate rezultatele. Vedeți captura de ecran:

6. Selectați antetul coloanei de asistență, faceți clic pe Date > Filtru. Faceți clic pe butonul săgeată pe lângă celula antet, verificați TRUE numai casetă, apoi faceți clic pe OK.

Acum, toate celulele aldine din coloana B sunt filtrate după cum se arată în imaginea de mai jos.


Filtrează rapid celulele aldine dintr-o coloană cu mai multe clicuri în Excel:

Filtrează celulele Bold utilitatea Kutools pentru Excel vă poate ajuta să filtrați rapid toate celulele îndrăznețe dintr-o anumită coloană cu mai multe clicuri, așa cum se arată în demonstrația de mai jos.
Descărcați acum caracteristica completă gratuită de 30 de zile a Kutools pentru Excel!


Filtrați celulele aldine cu codul VBA

Codul VBA de mai jos vă permite să filtrați direct toate celulele aldine dintr-o singură coloană. Vă rugăm să faceți următoarele.

1. Selectați intervalul de coloane pentru care veți filtra toate celulele aldine, cu excepția celulei antet. În acest caz, selectez B2: B16.

2. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.

3. În Microsoft Visual Basic pentru aplicație fereastră, faceți clic pe Insera > Modul, apoi copiați și lipiți următorul cod VBA în fereastra Module.

Cod VBA: filtrați celulele aldine dintr-o coloană

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. apasă pe F5 tasta pentru a rula această macro. Apoi, toate celulele aldine sunt filtrate imediat în intervalul de coloane selectat.


Filtrează cu ușurință celulele îndrăznețe cu un instrument uimitor

În această secțiune, vă recomandăm un instrument la îndemână - Filtrează celulele Bold utilitatea Kutools pentru Excel. Cu acest utilitar, toate celulele aldine din coloana selectată sunt filtrate imediat cu câteva clicuri.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați intervalul de coloane pe care veți filtra celulele aldine, faceți clic pe Kutools Plus> Filtru special > Filtrează cu caractere aldine pentru a o face. Vedeți mai jos demonstrația:

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Articole pe aceeași temă

Filtrați simultan mai multe coloane în Excel
După filtrarea unei coloane cu caracteristica Filtru, numai criteriile ȘI pot fi aplicate mai multor coloane. În acest caz, cum ați putea aplica atât criteriile ȘI cât și SAU pentru a filtra mai multe coloane simultan în foaia de lucru Excel? Metodele din acest articol vă pot face o favoare.

Filtrează sau selectează celulele după culoarea celulei în Excel
În mod normal, puteți completa celule cu culori diferite pentru orice scop în Excel. Dacă aveți o foaie de lucru cu ajutorul diferitelor culori pentru a indica diferite tipuri de conținut și doriți să filtrați sau să selectați acele celule în funcție de culoarea celulei, puteți face acest lucru cu metodele din acest articol.

Lipiți omiterea celulelor și rândurilor ascunse / filtrate în Excel
De exemplu, ați filtrat un tabel în Excel, dar acum trebuie să copiați un interval și să îl lipiți în acest tabel filtrat, știți cum să lipiți omitând celulele și rândurile ascunse / filtrate? Mai multe modalități ușoare din acest articol vă pot ajuta.

Filtrați rândurile pe baza unei selecții de liste dintr-o altă foaie
În Excel, filtrăm de obicei rândurile pe baza unui criteriu, dar dacă există două liste, unul este în Sheet1 și altul în Sheet2, ați putea avea trucuri pentru a filtra rapid rândurile în Sheet1 pe baza listei din Sheet2? Aici acest articol introduce modalitățile de rezolvare a acestui loc de muncă.

Filtrați toate datele conexe din celulele îmbinate în Excel
Presupunând că există o coloană de celule îmbinate în intervalul dvs. de date și acum, trebuie să filtrați această coloană cu celule îmbinate pentru a afișa toate rândurile care sunt legate de fiecare celulă îmbinată, după cum se arată în următoarele capturi de ecran. În Excel, caracteristica Filtrare vă permite să filtrați numai primul element asociat cu celulele îmbinate, în acest articol, vorbim despre cum să filtrați toate datele conexe din celulele îmbinate în Excel.

Mai multe tutoriale pentru filtrarea datelor ...

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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