Перейти к основному содержанию

Как отфильтровать ячейки жирным шрифтом в Excel?

Автор: Келли Последнее изменение: 2020 июля 05 г.

Вы можете применить полужирный стиль шрифта для форматирования данных или содержимого в ячейках в Excel, но знаете ли вы, как фильтровать ячейки по ячейкам, содержащим полужирный стиль шрифта в Excel? В этой статье собрано несколько сложных макросов VBA для фильтрации ячеек жирным шрифтом в Excel.

Отфильтруйте жирные ячейки с помощью вспомогательного столбца
Фильтрация жирных ячеек с помощью кода VBA
Легко фильтруйте жирные ячейки с помощью замечательного инструмента
Дополнительные руководства по фильтрации данных…


Отфильтруйте жирные ячейки с помощью столбца справки

Предположим, вам нужно отфильтровать все выделенные жирным шрифтом ячейки в столбце B, как показано на скриншоте ниже, сделайте следующее:

Приведенная ниже пользовательская функция помогает определить, выделена ли ячейка в столбце полужирным шрифтом, а затем вернуть результаты как ИСТИНА или ЛОЖЬ во вспомогательном столбце. Вы можете отфильтровать все результаты ИСТИНА, чтобы в столбце B отображались только выделенные жирным шрифтом ячейки.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль, затем скопируйте следующий код VBA в окно модуля. Смотрите скриншот:

Код VBA: фильтрация ячеек жирным шрифтом

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

3. нажмите другой + Q клавиши, чтобы закрыть окно кода.

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

= Полужирный (B2)

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

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

Теперь все выделенные жирным шрифтом ячейки в столбце B отфильтрованы, как показано на скриншоте ниже.


Быстро фильтруйте выделенные жирным шрифтом ячейки в столбце в несколько щелчков мышью в Excel:

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


Фильтрация жирных ячеек с помощью кода VBA

Приведенный ниже код VBA позволяет напрямую фильтровать все выделенные жирным шрифтом ячейки в одном столбце. Пожалуйста, сделайте следующее.

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

2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль, затем скопируйте и вставьте следующий код 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 for Excel. С помощью этой утилиты все выделенные жирным шрифтом ячейки в выбранном столбце фильтруются сразу несколькими щелчками мыши.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите диапазон столбцов, в котором вы будете фильтровать выделенные жирным шрифтом ячейки, нажмите Кутулс Плюс> Специальный фильтр > Фильтр жирным шрифтом чтобы сделать это. См. Демонстрацию ниже:

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Статьи по теме

Одновременная фильтрация нескольких столбцов в Excel
После фильтрации одного столбца с помощью функции «Фильтр» только критерий И может применяться к нескольким столбцам. Как в этом случае применить критерии И и ИЛИ для одновременной фильтрации нескольких столбцов на листе Excel? Методы, описанные в этой статье, могут оказать вам услугу.

Отфильтровать или выбрать ячейки по цвету ячеек в Excel
Обычно вы можете заливать ячейки разными цветами для любых целей в Excel. Если у вас есть рабочий лист с использованием разных цветов для обозначения разного типа содержимого, и вы хотите отфильтровать или выбрать эти ячейки по цвету ячеек, вы можете сделать это с помощью методов, описанных в этой статье.

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

Фильтрация строк на основе выбора списка на другом листе
В Excel мы обычно фильтруем строки на основе критерия, но если есть два списка, один находится в Sheet1, а другой в Sheet2, не могли бы вы найти какие-нибудь уловки для быстрой фильтрации строк в Sheet1 на основе списка в Sheet2? В этой статье представлены способы решения этой задачи.

Отфильтровать все связанные данные из объединенных ячеек в Excel
Предположим, что в вашем диапазоне данных есть столбец объединенных ячеек, и теперь вам необходимо отфильтровать этот столбец с объединенными ячейками, чтобы показать все строки, которые связаны с каждой объединенной ячейкой, как показано на следующих снимках экрана. В Excel функция «Фильтр» позволяет фильтровать только первый элемент, связанный с объединенными ячейками, в этой статье мы говорим о том, как фильтровать все связанные данные из объединенных ячеек в Excel.

Дополнительные руководства по фильтрации данных…

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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