Как удалить ячейки или строки, если они не выделены жирным шрифтом в Excel?
Предположим, у вас есть диапазон данных с ячейками, выделенными жирным шрифтом, а не с ячейками, выделенными жирным шрифтом, как показано на скриншоте ниже, теперь вам нужно удалить ячейки или строки, если они не выделены жирным шрифтом. Вместо того, чтобы вручную удалять ячейки, не выделенные жирным шрифтом, в этом руководстве представлены приемы, позволяющие быстро решить эту проблему в Excel.
Удалите строки, если они не выделены полужирным шрифтом с помощью VBA
Удалите строки / ячейки, если они не выделены жирным шрифтом с помощью Kutools for Excel
v Удалите строки, если они не выделены полужирным шрифтом с помощью VBA
Чтобы удалить строки, если они не выделены жирным шрифтом, вы можете использовать код VBA для обработки.
1. Нажмите F11 + Альт ключи для включения Microsoft Visual Basic для приложений окно.
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 Sub
3. Нажмите F5 ключ для запуска кода VBA. В всплывающем Kutools for Excel в диалоговом окне укажите диапазон, в котором будут удаляться строки без выделенных жирным шрифтом ячеек, и нажмите кнопку OK кнопку.
И тогда вы можете увидеть, что строки, которые не содержат выделенных жирным шрифтом ячеек, были удалены.



Примечание: строки можно удалить, только если все ячейки в одной строке не выделены жирным шрифтом.
Удалите ячейки, если они не выделены полужирным шрифтом, с помощью помощника по поиску и замене и выбора диапазона
Если вы просто хотите удалить содержимое ячейки из ячеек, не выделенных жирным шрифтом, вы можете использовать функцию «Найти и заменить», чтобы сначала выбрать ячейки, выделенные жирным шрифтом, а затем использовать Kutools for ExcelАвтора Выбрать помощника по диапазону чтобы отменить выбор ячеек, не выделенных жирным шрифтом, затем удалить содержимое.
1. Выберите диапазон данных, в котором вы хотите удалить не выделенные жирным шрифтом ячейки, и нажмите Ctrl + F включить Найти и заменить диалоговое окно и щелкните Опции кнопка. Смотрите скриншот:
2. Нажмите Формат , чтобы перейти к Найти формат диалог и под шрифт вкладка, выберите Жирный из Стиль шрифта список. Смотрите скриншот:
3. Нажмите OK > Найти все, и все выделенные жирным шрифтом ячейки перечислены в Найти и заменить диалоговое окно и нажмите Ctrl + A чтобы выбрать все, затем закройте Найти и заменить диалог. Смотрите скриншот:
4. Затем не снимайте выделения с этих ячеек и щелкните Кутулс > Выберите > Выбрать помощника по диапазону. Смотрите скриншот:
5. В появившемся диалоговом окне отметьте Обратный выбор вариант, а затем выберите исходный диапазон данных. Теперь вы можете видеть, что выбор поменялся местами. Смотрите скриншот:
6. Нажмите Закрыть, Теперь нажмите Удалить клавиша, чтобы удалить содержимое ячеек из ячеек, не выделенных жирным шрифтом.
Удалите строки / ячейки, если они не выделены жирным шрифтом с помощью Kutools for Excel
Вышеуказанные методы не достаточно просты, в этом случае вы можете использовать Kutools for ExcelАвтора Выбрать ячейки с форматом утилита для быстрого определения не выделенных жирным шрифтом ячеек и последующего их удаления.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Выберите нужный диапазон данных и нажмите Кутулс > Выберите > Выбрать ячейки с форматом. Смотрите скриншот:
2. В появившемся диалоговом окне щелкните Выбрать формат из ячейки кнопку, чтобы выбрать одну не выделенную жирным шрифтом ячейку из диапазона данных, затем установите флажок Жирный только из списка ниже в разделе «Шрифт». Смотрите скриншот:
3. Нажмите Ok, и появится диалоговое окно, напоминающее количество выбранных ячеек, просто щелкните Да закрыть его.
Теперь выделены все не выделенные жирным шрифтом ячейки и нажмите Удалить клавиша для удаления содержимого ячейки. Или, если вы хотите удалить строки, не выделенные жирным шрифтом, щелкните правой кнопкой мыши любую из выбранных ячеек и выберите Удалить > Весь ряд. Смотрите скриншоты:



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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
