Как удалить ячейки или строки в Excel, если они не выделены полужирным шрифтом?
Предположим, у вас есть диапазон данных, часть из которых выделена Полужирный, а часть — нет (Полужирный), как показано на скриншоте ниже. Теперь вам нужно удалить ячейки или строки, которые не выделены полужирным шрифтом. Вместо того чтобы удалять их по одной вручную, в этом руководстве описаны способы быстрого решения задачи в Excel.
Удаление строк, если они не выделены полужирным шрифтом, с помощью VBA
Удаление строк/ячеек, если они не выделены полужирным шрифтом, с помощью Kutools для Excel 
v Удаление строк, если они не выделены полужирным шрифтом, с помощью VBA
Чтобы удалить строки, не выделенные полужирным шрифтом, воспользуйтесь кодом VBA.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Выберите пункт Вставка > Модуль, затем вставьте приведённый ниже код VBA в новое окно Модуля.
VBA: Удаление строк, не выделенных полужирным шрифтом.
Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
Dim xRg As Range
Dim xDelRg As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
Dim xBold As Variant
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xBold = xRg.Rows(I).Cells.Font.Bold
If TypeName(xBold) = "Boolean" Then
If xBold = False Then
If xDelRg Is Nothing Then
Set xDelRg = xRg.Rows(I).EntireRow
Else
Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
End If
End If
End If
Next
xDelRg.Delete
Application.ScreenUpdating = xUpdate
End Sub3. Нажмите клавишу F5, чтобы запустить код VBA. В появившемся диалоговом окне Kutools для Excel укажите диапазон, в котором нужно удалить строки без полужирного шрифта, и нажмите кнопку ОК.
После этого вы увидите, что все строки, не содержащие «Полужирный», были удалены.
Примечание: строки удаляются только в том случае, если ни одна ячейка в строке не выделена полужирным шрифтом.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Удаление ячеек, если они не выделены полужирным шрифтом, с помощью Поиск и замена и Помощник диапазона
Если вы хотите удалить содержимое только тех ячеек, которые не выделены Полужирным, сначала воспользуйтесь функцией «Найти и заменить», чтобы выделить все ячейки, отформатированные Полужирным. Затем примените инструмент Kutools для Excel → Помощник диапазона, чтобы инвертировать выделение и выбрать именно те ячейки, где форматирование Полужирный не применено, — после этого удалите их содержимое.
1. Выделите диапазон данных, в котором нужно удалить ячейки, не выделенные полужирным, и нажмите клавиши Ctrl + F, чтобы открыть диалоговое окно Поиск и замена, затем нажмите кнопку Параметры. См. скриншот:
2. Нажмите кнопку Формат, чтобы открыть диалоговое окно Формат поиска, перейдите на вкладку Шрифт и выберите параметр Полужирный в списке Стиль шрифта. См. скриншот:
3. Нажмите кнопку ОК, затем — Найти все. Все фрагменты, отформатированные полужирным шрифтом, появятся в диалоговом окне Поиск и замена. Нажмите клавиши Ctrl + A, чтобы выделить их все, после чего закройте диалоговое окно Поиск и замена. См. скриншот:
4. Оставив эти ячейки выделенными, нажмите Kutools > Выделить > Помощник диапазона. См. скриншот:
5. В появившемся диалоговом окне сначала установите флажок напротив параметра Инвертировать выбор, затем укажите исходный диапазон данных. Теперь вы увидите, что выделение инвертировано. См. скриншот:
6. Нажмите кнопку Закрыть. Затем нажмите клавишу Delete, чтобы удалить содержимое ячеек, не выделенных полужирным.
Удаление строк/ячеек, если они не выделены полужирным шрифтом, с помощью Kutools для Excel
Описанные выше методы недостаточно просты. В таком случае воспользуйтесь утилитой Kutools для Excel’s Выбрать ячейки с похожим форматом, чтобы быстро найти и удалить ячейки, не выделенные полужирным.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Выделите нужный диапазон данных и нажмите Kutools > Выделить > Выбрать ячейки с похожим форматом. См. скриншот:
2. В появившемся диалоговом окне нажмите кнопку Выбрать формат от ячейки, чтобы выбрать одну ячейку без полужирного шрифта из диапазона данных, затем установите флажок напротив параметра Полужирный в списке раздела «Шрифт». См. скриншот:
3. Нажмите кнопку ОК. Появится диалоговое окно с напоминанием о количестве выделенных ячеек — просто нажмите кнопку Да, чтобы закрыть его.
Теперь выбраны все ячейки, не отмеченные полужирным. Нажмите клавишу Delete, чтобы удалить их содержимое. Если же вы хотите удалить строки, не выделенные полужирным шрифтом, щёлкните правой кнопкой мыши по любой из выделенных ячеек и выберите команду Удалить > Вся строка. См. скриншоты:
Демонстрация: Удаление ячеек/строк, если они не выделены полужирным шрифтом
Связанные статьи:
- Как Конвертировать гиперссылки в Обычный текст в Excel?
- Как подсчитать ячейки, начинающиеся или заканчивающиеся определённым текстом, в Excel?
- Как подсчитать и Удалить дубликаты из списка в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек