Przejdź do głównej zawartości

Jak filtrować komórki pogrubionymi znakami w programie Excel?

Możesz zastosować pogrubiony styl czcionki, aby sformatować dane lub zawartość w komórkach w programie Excel, ale czy wiesz, jak filtrować komórki według komórek zawierających pogrubiony styl czcionki w programie Excel? W tym artykule zebrano kilka trudnych makr VBA do filtrowania komórek pogrubionymi znakami w programie Excel.

Filtruj pogrubione komórki za pomocą kolumny pomocniczej
Filtruj pogrubione komórki za pomocą kodu VBA
Łatwo filtruj pogrubione komórki za pomocą niesamowitego narzędzia
Więcej samouczków dotyczących filtrowania danych…


Filtruj pogrubione komórki za pomocą kolumny pomocy

Przypuśćmy, że musisz odfiltrować wszystkie pogrubione komórki w kolumnie B, jak pokazano na poniższym zrzucie ekranu, wykonaj następujące czynności:

Poniższa funkcja zdefiniowana przez użytkownika pomaga określić, czy komórka w kolumnie jest pogrubiona, czy nie, a następnie zwraca wyniki jako PRAWDA lub Fałsz w kolumnie pomocniczej. Możesz filtrować wszystkie wyniki TRUE, aby wyświetlić tylko pogrubione komórki w kolumnie B.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. w Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Moduł, następnie skopiuj następujący kod VBA do okna Module. Zobacz zrzut ekranu:

Kod VBA: filtruj komórki pogrubionymi znakami

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

3. wciśnij inny + Q klawisze, aby zamknąć okno kodu.

4. Wybierz pustą komórkę sąsiadującą z tabelą (wybrana komórka powinna znajdować się w tym samym wierszu pierwszego wiersza tabeli filtrów), skopiuj do niej poniższą formułę i naciśnij wchodzić klawisz.

= IsBold (B2)

5. Kontynuuj wybieranie pierwszej komórki wynikowej i przeciągnij uchwyt wypełnienia, aby uzyskać wszystkie wyniki. Zobacz zrzut ekranu:

6. Wybierz nagłówek kolumny pomocnika, kliknij Dane > Filtr. Kliknij przycisk strzałki obok komórki nagłówka, zaznacz TRUE tylko w polu, a następnie kliknij OK.

Teraz wszystkie pogrubione komórki w kolumnie B są odfiltrowywane, jak pokazano poniżej.


Szybko filtruj pogrubione komórki w kolumnie za pomocą kilku kliknięć w programie Excel:

Połączenia Filtruj pogrubione komórki użyteczność Kutools dla programu Excel może pomóc w szybkim filtrowaniu wszystkich pogrubionych komórek w określonej kolumnie za pomocą kilku kliknięć, jak pokazano poniżej.
Pobierz teraz pełną funkcję 30-dniową darmową ścieżkę Kutools dla programu Excel!


Filtruj pogrubione komórki za pomocą kodu VBA

Poniższy kod VBA umożliwia bezpośrednie filtrowanie wszystkich pogrubionych komórek w jednej kolumnie. Wykonaj następujące czynności.

1. Wybierz zakres kolumn, w którym odfiltrujesz wszystkie pogrubione komórki z wyjątkiem komórki nagłówka. W tym przypadku wybieram B2: B16.

2. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

3. w Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Moduł, następnie skopiuj i wklej następujący kod VBA do okna Module.

Kod VBA: Filtruj pogrubione komórki w kolumnie

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. wciśnij F5 klucz do uruchomienia tego makra. Następnie wszystkie pogrubione komórki są natychmiast odfiltrowywane w wybranym zakresie kolumn.


Łatwo filtruj pogrubione komórki za pomocą niesamowitego narzędzia

W tej sekcji polecamy przydatne narzędzie - plik Filtruj pogrubione komórki użyteczność Kutools dla programu Excel. Dzięki temu narzędziu wszystkie pogrubione komórki w wybranej kolumnie są natychmiast filtrowane za pomocą kilku kliknięć.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Wybierz zakres kolumn, w którym będziesz filtrować pogrubione komórki, kliknij Kutools Plus> Specjalny filtr > Filtruj pogrubioną czcionką aby to zrobić. Zobacz poniżej demo:

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Powiązane artykuły

Filtruj wiele kolumn jednocześnie w programie Excel
Po przefiltrowaniu jednej kolumny za pomocą funkcji Filtruj, tylko kryteria ORAZ można zastosować do więcej niż jednej kolumny. W takim przypadku, jak można zastosować kryteria AND i OR do jednoczesnego filtrowania wielu kolumn w arkuszu programu Excel? Metody opisane w tym artykule mogą Ci pomóc.

Filtruj lub zaznacz komórki według koloru komórki w programie Excel
Zwykle w programie Excel można wypełniać komórki różnymi kolorami do dowolnych celów. Jeśli masz arkusz roboczy z różnymi kolorami wskazującymi inny typ zawartości i chcesz filtrować lub wybierać te komórki według koloru komórki, możesz to zrobić za pomocą metod opisanych w tym artykule.

Wklej pomijanie ukrytych / filtrowanych komórek i wierszy w programie Excel
Na przykład przefiltrowałeś tabelę w programie Excel, ale teraz musisz skopiować zakres i wkleić do tej przefiltrowanej tabeli, czy wiesz, jak wkleić, pomijając ukryte / przefiltrowane komórki i wiersze? W tym artykule może Ci pomóc kilka prostych sposobów.

Filtruj wiersze na podstawie wyboru z listy w innym arkuszu
W programie Excel zwykle filtrujemy wiersze na podstawie kryteriów, ale jeśli istnieją dwie listy, jedna znajduje się w Sheet1, a druga w Sheet2, czy możesz mieć jakieś sztuczki, aby szybko filtrować wiersze w Sheet1 na podstawie listy w Sheet2? W tym artykule przedstawiono sposoby rozwiązania tego zadania.

Filtruj wszystkie powiązane dane ze scalonych komórek w programie Excel
Przypuśćmy, że w twoim zakresie danych znajduje się kolumna scalonych komórek, a teraz musisz przefiltrować tę kolumnę połączonymi komórkami, aby wyświetlić wszystkie wiersze powiązane z każdą scaloną komórką, jak pokazano na poniższych zrzutach ekranu. W programie Excel funkcja Filtruj umożliwia filtrowanie tylko pierwszego elementu, który jest powiązany ze scalonymi komórkami, w tym artykule mówimy o tym, jak filtrować wszystkie powiązane dane ze scalonych komórek w programie Excel.

Więcej samouczków dotyczących filtrowania danych…

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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