Как удалить ячейки или строки, если они не выделены жирным шрифтом в 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!