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

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 caracteristica completă 30- traseu gratuit de o zi a Kutools pentru Excel acum!


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 încercare gratuită (30-zi) a acestei utilitati, 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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (15)
Evaluat 4.5 din 5 · evaluări 1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Presupun că coloana A este coloana de referință cu celule aldine. Creez un Nume „Aldin?” cu referire la ca mai jos =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) În coloana B, tastez: =Bold? Copiați formula și apoi utilizați filtrul automat pentru a filtra valoarea TRUE. TERMINAT
Acest comentariu a fost redus la minimum de moderatorul de pe site
@Cadafi.... asta e genial... mă întreb cum funcționează totuși!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Formula @cadafi ur funcționează bine, dar nu este utilizarea optimizată sau eficientă a acesteia. Mai degrabă ar trebui să folosim referința directă a intervalului sau o celulă în locul acelei comenzi de compensare completă. Asemenea celui de mai jos: =GET.CELL(20,'Sheet1'!A1) Copiați formula și apoi utilizați autofilter pentru a filtra valoarea TRUE. TERMINAT
Acest comentariu a fost redus la minimum de moderatorul de pe site
@Mohammad Faizan Ai perfectă dreptate. Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc Mohamand Faizan. ai perfecta dreptate.
Acest comentariu a fost redus la minimum de moderatorul de pe site
A funcționat perfect, mulțumesc!!! :D :lol:
Acest comentariu a fost redus la minimum de moderatorul de pe site
Simplu și genial, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, folosesc acest cod și funcționează bine, dar de fiecare dată când dau clic pe Anulare caseta de dialog apare o fereastră pop-up și arată o eroare. Vă rog să-mi spuneți cum să elimin această eroare. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Vă rugăm să selectați un interval", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False pentru fiecare myRange În selecție Dacă myRange.Font.Bold = False, atunci myRange.EntireRow.Hidden = True End Dacă Urmează myRange Application.ScreenUpdating = True End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Nitin Jain,

Îmi pare rău că răspund atât de târziu!

Am găsit problema și am rezolvat-o deja. Scriptul VBA din articol este acum actualizat,

Multumesc pentru comentariu!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru distribuire. Funcționează minunat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, sunt un începător cu excelență, am făcut următoarea tehnică, dar acum trebuie să copiez datele care sunt aldine/adevărate. Când am încercat să fac acest lucru, nu voi copia ceea ce este evidențiat. Aveți idei despre cum pot copia datele? Mulțumesc, Richard
Acest comentariu a fost redus la minimum de moderatorul de pe site
@RICHARD Puteți, vă rog, să oferiți vreo captură de ecran a foii de calcul care să arate exact ceea ce încercați să faceți?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am folosit această tehnică și am avut o problemă când am încercat să copiez datele aldine. Copiază doar unele dintre date dintr-un anumit motiv. Există vreo modalitate de a copia numai datele aldine folosind această tehnică? Mulțumesc, Richard
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragi Richard Skins,



Nu am întâlnit problema așa cum ați menționat. Vă rugăm să furnizați o captură de ecran cu detalii despre operațiunea dvs.?



Multumesc pentru comentariu!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc pentru formula... m-a ajutat
Evaluat 4.5 din 5
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL