Перейти до основного матеріалу

Як фільтрувати комірки жирними символами в Excel?

Ви можете застосувати жирний стиль шрифту для форматування даних або вмісту в комірках в Excel, але чи знаєте ви, як фільтрувати комірки за клітинками, які містять жирний шрифт у Excel? У цій статті зібрано кілька хитрих макросів VBA для фільтрації комірок жирними символами в Excel.

Фільтруйте жирні комірки за допомогою допоміжного стовпця
Відфільтруйте жирні комірки за допомогою коду VBA
Легко фільтруйте жирні комірки за допомогою дивовижного інструменту
Більше підручників з фільтрації даних ...


Фільтруйте жирні комірки за допомогою довідкового стовпця

Припустимо, вам потрібно відфільтрувати всі жирні клітинки в стовпці B, як показано на знімку екрана, будь-ласка, зробіть наступне:

Нижче визначена користувачем функція допомагає визначити, чи є клітинка в стовпці жирним шрифтом чи ні, а потім повернути результати як TRUE або False у допоміжному стовпці. Ви можете відфільтрувати всі ІСТИННІ результати для відображення лише жирних комірок у стовпці B.

1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для програми вікна.

2 В Microsoft Visual Basic для програми вікна, натисніть Insert > Модуль потім скопіюйте наступний код VBA у вікно Модуль. Дивіться знімок екрана:

Код VBA: фільтруйте комірки жирними символами

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

3 Натисніть кнопку інший + Q клавіші, щоб закрити вікно коду.

4. Виберіть порожню комірку, яка знаходиться поруч із таблицею (вибрана комірка повинна знаходитись у тому самому рядку першого рядка таблиці фільтрів), скопіюйте в неї формулу нижче та натисніть вводити ключ

= IsBold (B2)

5. Продовжуйте обирати першу комірку результату та перетягніть маркер заповнення, щоб отримати всі результати. Дивіться знімок екрана:

6. Виберіть заголовок стовпця помічника, клацніть дані > Фільтрувати Клацніть на кнопку зі стрілкою поруч із коміркою заголовка, поставте галочку ІСТИНА , а потім клацніть ОК.

Тепер усі жирні клітинки у стовпці B відфільтровані, як показано на знімку екрана.


Швидко фільтруйте жирні комірки в стовпці за допомогою декількох клацань у програмі Excel:

Команда Відфільтруйте сміливі комірки корисність Kutools для Excel може допомогти вам швидко відфільтрувати всі жирні комірки в певному стовпці за допомогою декількох клацань, як показано нижче.
Завантажте повну 30-денну безкоштовну версію Kutools для Excel зараз!


Відфільтруйте жирні комірки за допомогою коду VBA

Наведений нижче код VBA дозволяє вам безпосередньо відфільтрувати всі жирні клітинки в одному стовпці. Будь ласка, виконайте наступне.

1. Виберіть діапазон стовпців, який ви відфільтруєте, усі жирні комірки, крім комірки заголовка. У цьому випадку я вибираю B2: B16.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для програми вікна.

3 В Microsoft Visual Basic для програми вікна, натисніть Insert > Модуль потім скопіюйте та вставте наступний код VBA у вікно модуля.

Код 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 та OR для одночасного фільтрування кількох стовпців на аркуші Excel? Методи в цій статті можуть вам допомогти.

Фільтруйте або виділяйте комірки за кольором комірки в Excel
Зазвичай ви можете заповнювати комірки різними кольорами для будь-яких цілей в Excel. Якщо у вас є аркуш із використанням різних кольорів для позначення різного типу вмісту, і ви хочете відфільтрувати або виділити ці клітинки за кольором комірки, ви можете зробити це за допомогою методів у цій статті.

Вставити, пропустивши приховані / відфільтровані комірки та рядки в Excel
Наприклад, ви відфільтрували таблицю в Excel, але тепер вам потрібно скопіювати діапазон і вставити в цю відфільтровану таблицю. Чи знаєте ви, як вставити, пропускаючи приховані / відфільтровані комірки та рядки? Кілька простих способів у цій статті можуть вам допомогти.

Фільтруйте рядки на основі виділення списку на іншому аркуші
В Excel ми зазвичай фільтруємо рядки на основі критеріїв, але якщо є два списки, один знаходиться в аркуші1, а інший у аркуші2, чи можете ви мати якісь хитрощі для швидкого фільтрування рядків у аркуші1 на основі списку в аркуші2? Тут ця стаття представляє шляхи вирішення цієї роботи.

Фільтруйте всі пов’язані дані із об’єднаних комірок у Excel
Припустимо, що у вашому діапазоні даних є стовпець об’єднаних комірок, і тепер вам потрібно відфільтрувати цей стовпець із об’єднаними комірками, щоб показати всі рядки, пов’язані з кожною об’єднаною коміркою, як показано на наступних скріншотах. У програмі Excel функція фільтрації дозволяє фільтрувати лише перший елемент, який пов’язаний із об’єднаними клітинками. У цій статті ми говоримо про те, як фільтрувати всі пов’язані дані із об’єднаних комірок у Excel.

Більше підручників з фільтрації даних ...

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в 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