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

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

Вы можете применить полужирный стиль шрифта для форматирования данных или содержимого в ячейках в 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 для 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (15)
Номинальный 4.5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Я предполагаю, что столбец A является эталонным столбцом с ячейками, выделенными жирным шрифтом. Я создаю Имя "Смелый?" со ссылкой, как показано ниже =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) В столбце B я набираю: =Bold? Скопируйте формулу, а затем используйте автофильтр, чтобы отфильтровать значение TRUE. СДЕЛАНО
Этот комментарий был сведен к минимуму модератором на сайте
@Cadafi .... это великолепно ... интересно, как это работает!
Этот комментарий был сведен к минимуму модератором на сайте
Ваша формула @cadafi работает нормально, но это не оптимизированное или эффективное ее использование. Скорее мы должны использовать прямую ссылку на диапазон или ячейку вместо этой команды полного смещения. Подобно следующему: =GET.CELL(20,'Sheet1'!A1) Скопируйте формулу и затем используйте автофильтр, чтобы отфильтровать значение TRUE. СДЕЛАНО
Этот комментарий был сведен к минимуму модератором на сайте
@Mohammad Faizan Вы совершенно правы. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, Мохаманд Файзан. Вы совершенно правы.
Этот комментарий был сведен к минимуму модератором на сайте
Это сработало отлично, спасибо!!! :D :лол:
Этот комментарий был сведен к минимуму модератором на сайте
Просто и гениально, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я использую этот код, и он работает нормально, но всякий раз, когда я нажимаю кнопку «Отмена» в диалоговом окне, появляется всплывающее окно и отображается какая-то ошибка. Подскажите, пожалуйста, как убрать эту ошибку. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Выберите диапазон", Title:="Метод InputBox", Type:=8) myRange.Select Application.ScreenUpdating = False для каждого myRange В выборе Если myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемый Нитин Джейн,

Извините, что отвечаю так поздно!

Мы нашли проблему и уже исправили ее. Сценарий VBA в статье теперь обновлен,

Спасибо за ваш комментарий!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, что поделился. Это прекрасно работает.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я полный новичок в Excel, я применил следующую технику, но теперь мне нужно скопировать данные, которые выделены жирным шрифтом/верно. Когда я пытался сделать это, я не копировал то, что выделено. Любые идеи о том, как я могу скопировать данные? Спасибо, Ричард
Этот комментарий был сведен к минимуму модератором на сайте
@RICHARD Не могли бы вы предоставить скриншот вашей электронной таблицы, показывающий, что именно вы пытаетесь сделать?
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал эту технику, и у меня возникла проблема при попытке скопировать данные, выделенные жирным шрифтом. По какой-то причине он копирует только некоторые данные. Есть ли способ скопировать только выделенные жирным шрифтом данные с помощью этой техники? Спасибо, Ричард
Этот комментарий был сведен к минимуму модератором на сайте
Дорогой Ричард Скин,



Мы не сталкивались с проблемой, как вы упомянули. Не могли бы вы предоставить скриншот с подробностями вашей операции?



Спасибо за ваш комментарий!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за формулу..помогло
Номинальный 4.5 из 5
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL