Прескочи на основното съдържание

Как да филтрирате клетки с удебелени знаци в Excel?

Автор: Кели Последна промяна: 2020-05-21

Можете да приложите удебеления стил на шрифта, за да форматирате данните или съдържанието в клетките в Excel, но знаете ли как да филтрирате клетките по клетките, които съдържат удебелен шрифт в Excel? Тази статия събира няколко трудни VBA макроси за филтриране на клетки с удебелен шрифт в Excel.

Филтрирайте удебелените клетки с помощната колона
Филтрирайте удебелени клетки с VBA кода
Лесно филтрирайте удебелени клетки с невероятен инструмент
Още уроци за филтриране на данни...


Филтрирайте удебелени клетки с помощната колона

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

Дефинираната от потребителя функция по-долу помага да се определи дали клетка в колона е удебелена или не и след това да върне резултатите като TRUE или False в помощна колона. Можете да филтрирате всички TRUE резултати, за да показвате само удебелените клетки в колона 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. Изберете празна клетка, която е съседна на таблицата (избраната клетка трябва да се намира на същия ред на първия ред във филтърната таблица), копирайте формулата по-долу в нея и натиснете въведете ключ.

=IsBold(B2)

5. Продължете да избирате първата клетка с резултати и плъзнете манипулатора за попълване, за да получите всички резултати. Вижте екранна снимка:

6. Изберете заглавката на помощната колона, щракнете Дата > Филтър. Щракнете върху бутона със стрелка до заглавната клетка, проверете TRUE и след това щракнете OK.

Сега всички удебелени клетки в колона B са филтрирани, както е показано на екранната снимка по-долу.


Бързо филтрирайте удебелени клетки в колона с няколко кликвания в Excel:

- Филтър Удебелени клетки полезност на Kutools за 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 ключ за изпълнение на този макрос. След това всички удебелени клетки се филтрират незабавно в избрания диапазон от колони.


Лесно филтрирайте удебелени клетки с невероятен инструмент

В този раздел ви препоръчваме един удобен инструмент – the Филтър Удебелени клетки полезност на Kutools за Excel. С тази помощна програма всички удебелени клетки в избраната колона се филтрират незабавно с няколко кликвания.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. Изберете диапазона от колони, в който ще филтрирате удебелените клетки, щракнете върху Kutools плюс> Специален филтър > Филтър Получер за да го направя. Вижте демонстрацията по-долу:

  Ако искате да имате безплатен пробен период (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 за 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