Фильтр в excel для жирного шрифта

Я получаю этот запрос все время. У людей огромные наборы данных, и кто-то в их команде выделил некоторые записи, отформатировав их жирным шрифтом.

Теперь вы тот, кто получает эти данные, и вам нужно отфильтровать все эти записи, которые имеют полужирное форматирование.

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

Давайте посмотрим правде в глаза.

Нет простого способа сделать это.

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

В этом уроке я покажу вам три способа фильтрации ячеек с полужирным форматированием шрифта в Excel:

Метод 1. Фильтрация выделенных жирным шрифтом ячеек с помощью функции «Найти и заменить»

Найти и заменить можно использовать для поиска определенного текста на листе, а также определенного формата (например, цвета ячейки, цвета шрифта, полужирного шрифта, цвета шрифта).

Идея состоит в том, чтобы найти на листе выделенное жирным шрифтом форматирование и преобразовать его во что-то, что можно легко отфильтровать. (Подсказка: цвет ячейки можно использовать как фильтр).

Вот шаги фильтрации ячеек с полужирным шрифтом:

1. Выберите весь набор данных.
2. Перейдите на вкладку «Главная».
3. В группе «Редактирование» щелкните раскрывающееся меню «Найти и выбрать».
4. Щелкните «Заменить». (Сочетание клавиш: Control + H)
5. В диалоговом окне «Найти и заменить» нажмите кнопку «Параметры».
6. В разделе «Найти» перейдите к раскрывающемуся меню «Формат» и выберите «Выбрать формат из ячейки».
7. Выделите любую ячейку, в которой текст выделен жирным шрифтом.
8. В разделе «Заменить на:» перейдите в раскрывающийся список «Формат» и нажмите «Выбрать формат из ячейки».
9. В диалоговом окне «Замена формата» выберите вкладку «Заливка», выберите любой цвет и нажмите «ОК» (убедитесь, что этого цвета еще нет в ячейках вашего листа).
10. Нажмите «Заменить все». Это закрасит все ячейки с текстом жирным шрифтом.

На описанных выше шагах мы преобразовали текстовый формат, выделенный жирным шрифтом, в формат, который распознается Excel как критерий фильтрации.

Теперь, чтобы отфильтровать эти ячейки, выполните следующие действия:

1. Выберите весь набор данных.
2. Перейдите на вкладку «Данные».
3. Щелкните значок фильтра (Сочетание клавиш: Control + Shift + L)
4. Для столбца, который вы хотите отфильтровать, щелкните значок фильтра (стрелка вниз в ячейке).
5. В раскрывающемся списке перейдите к параметру «Фильтр по цвету» и выберите цвет, который вы применили к ячейкам с текстом, выделенным жирным шрифтом.

Это автоматически отфильтрует все ячейки с полужирным шрифтом.

Попробуйте сами… Скачать файл

Метод 2 — Использование формулы Get.Cell

Пришло время для скрытого драгоценного камня в Excel. Это макро-функция Excel 4 — GET.CELL ().

Это старая функция, которая не работает на листе как обычные функции, но по-прежнему работает в именованных диапазонах.

Функция GET.CELL дает вам информацию о ячейке.

Например, он может сказать вам:

• Имеет ли ячейка полужирное форматирование или нет
• Если в ячейке есть формула или нет
• Заперта ли ячейка или нет и тд.

Вот синтаксис формулы GET.CELL

= GET.CELL (type_num, ссылка)

• Type_num является аргументом для указания информации, которую вы хотите получить для указанной ячейки (например, если вы введете 20 в качестве type_num, он вернет TRUE, если ячейка имеет полужирный формат шрифта, и FALSE, если нет).
• Справка ссылка на ячейку, которую вы хотите проанализировать.

Теперь позвольте мне показать вам, как фильтровать ячейки с текстом, выделенным жирным шрифтом, используя эту формулу:

1. Перейдите на вкладку «Формулы».
2. Нажмите на опцию Define Name.
3. В диалоговом окне «Новое имя» используйте следующие сведения:
   • Имя: FilterBoldCell
   • Объем: Рабочая тетрадь
   • Относится к: = GET.CELL (20, $ A2)
4. Щелкните ОК.
5. Перейдите в ячейку B2 (или любую ячейку в той же строке, что и первая ячейка набора данных) и введите = FilterBoldCell
6. Скопируйте эту формулу для всех ячеек столбца. Он вернет ИСТИНА, если ячейка выделена жирным шрифтом, и ЛОЖЬ, если это не так.
7. Теперь выберите весь набор данных, перейдите на вкладку «Данные» и щелкните значок «Фильтр».
8. В столбце, где у вас есть ИСТИНА / ЛОЖЬ, выберите раскрывающийся список фильтра и выберите ИСТИНА.

Вот и все!

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

Примечание. Поскольку это функция макроса, вам необходимо сохранить этот файл с расширением .xlsm. или .xls расширение.

Мне не удалось найти справочную статью о GET.CELL () от Microsoft. Вот кое-что, что я нашел на доске сообщений мистера Excel.

Попробуйте сами… Скачать файл

Метод 3 — фильтрация выделенных жирным шрифтом ячеек с помощью VBA

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

Вот шаги:

1. Щелкните правой кнопкой мыши вкладку рабочего листа и выберите Просмотреть код (или используйте сочетание клавиш ALT + F11). Это открывает серверную часть редактора VB.
2. В окне редактора VB будет панель Project Explorer. Если его там нет, перейдите в «Просмотр» и выберите «Обозреватель проектов».
3. На панели Project Explorer щелкните правой кнопкой мыши книгу (VBAProject), над которой вы работаете, перейдите в Insert и нажмите Module. Это вставляет модуль, в который мы поместим код VBA.
4. Дважды щелкните значок модуля (чтобы убедиться, что ваш код включен в модуль) и вставьте следующий код в панель справа:

   Функция BoldFont (CellRef As Range) BoldFont = CellRef.Font.Bold End Function

5. Перейдите на рабочий лист и используйте следующую формулу: = Полужирный шрифт (B2)
6. Эта формула возвращает значение ИСТИНА, если к ячейке применено полужирное форматирование, и ЛОЖЬ в противном случае. Теперь вы можете просто отфильтровать все ИСТИННЫЕ значения (как показано в методе 2).

Опять таки! В этой книге теперь есть макрос, поэтому сохраните его с расширением .xlsm или .xls.

Попробуйте сами… Скачать файл

Надеюсь, у вас будет достаточно времени для столь необходимого перерыва на кофе 🙂

Вы знаете другой способ сделать это? Я хотел бы поучиться у вас. Оставляйте свои мысли в разделе комментариев и будьте крутыми.

Вы поможете развитию сайта, поделившись страницей с друзьями

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

Фильтрация жирных ячеек с помощью кода 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. С помощью этой утилиты все выделенные жирным шрифтом ячейки в выбранном столбце фильтруются сразу несколькими щелчками мыши.

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

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

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

Набросок.

Sub test_()
    Dim aData(), rRng As Range
    Dim i As Long, k As Long
    
    With ActiveSheet ' лист с исходными данными'
        i = .Cells(.Rows.Count, 1).End(xlUp).Row ' последняя строка с данными'
        Set rRng = .Range("A1:A" & i).Value ' диапазон в переменную, для отслеживания форматирования'
    End With
    
    aData = rRng.Value ' для ускорения чтения данные заносим в массив'
    ReDim aRes(1 To i, 1 To 6) ' 6 - количество столбцов (количество нужных данных из одного блока данных)'
    
    For i = 2 To UBound(aData)
        If rRng(i, 1).Font.Bold = True Then
            k = k + 1 ' номер записи в массиве выгрузки'
            aRes(k, 1) = aData(i, 1)
            ' здесь получить другие данные блока'
        End If
    Next i
    
    ' Worksheets("2") ' лист для выгрузки результата'
    Worksheets("2").Range("A2").Resize(UBound(aRes), UBound(aRes, 2)).Value = aRes
    Set rRng = Nothing
End Sub

Т.к. «другие поля (телефон, часы работы и сайт) есть не у всех данных«, то для получения других данных из блока нужно отслеживать наполнение блока.

Если нужно получить только жирные заголовки блоков, то массив выгрузки можно ограничить одним столбцом.

Возможно и так) Но, думаю, решения похожие..
В приведенном коде мною был не учитан тот факт, что насколько я понял, есть строки с обычным форматом, а есть с жирным шрифтом — следовательно порядок перебора уменьшается. Необходимо лишь проверять первую ячейку строки диапозона. Копировать всю строку, если необходимо, печатать, а потом удалять созданный диапозон.
Примерно то же самое происходит и с userфильтром — как вам нововведение:D. — аналогичный цикл, только вместо копирования происходит скрытие. Аналогичное восстановление — выделяется диапозон и отображаются все строки(если конечно в первоначальном состоянии какие-то строки уже были скрыты — этот вариант не подойдет и придется запоминать скрытые userфильтром).
При моем же варианте такой проблемы нет, хотя, теоретически, думаю копирование должно происходить на порядок дольше!!