Как удалить ячейки или строки, если они не выделены жирным шрифтом в Excel?

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

Удалите строки, если они не выделены полужирным шрифтом с помощью VBA

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

Удалите строки / ячейки, если они не выделены жирным шрифтом с помощью Kutools for Excel

---

v Удалите строки, если они не выделены полужирным шрифтом с помощью VBA

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

1. Нажмите F11 + Alt ключи для включения 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. Затем не снимайте выделения с этих ячеек и щелкните Kutools > Выберите > Выбрать помощника по диапазону. Смотрите скриншот:

5. В появившемся диалоговом окне отметьте Обратный выбор вариант, а затем выберите исходный диапазон данных. Теперь вы можете видеть, что выбор поменялся местами. Смотрите скриншот:

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

---

Удалите строки / ячейки, если они не выделены жирным шрифтом с помощью Kutools for Excel

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу.

Бесплатная загрузка бесплатно полнофункциональный через 30 дней

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите нужный диапазон данных и нажмите Kutools > Выберите > Выбрать ячейки с форматом. Смотрите скриншот:

2. В появившемся диалоговом окне щелкните Выбрать формат из ячейки кнопку, чтобы выбрать одну не выделенную жирным шрифтом ячейку из диапазона данных, затем установите флажок Жирный только из списка ниже в разделе «Шрифт». Смотрите скриншот:

3. Нажмите Ok, и появится диалоговое окно, напоминающее количество выбранных ячеек, просто щелкните Да закрыть его.

Теперь выделены все не выделенные жирным шрифтом ячейки и нажмите Удалить клавиша для удаления содержимого ячейки. Или, если вы хотите удалить строки, не выделенные жирным шрифтом, щелкните правой кнопкой мыши любую из выбранных ячеек и выберите Удалить > Весь ряд. Смотрите скриншоты:

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

---

Относительные статьи:

• Как преобразовать гиперссылки в обычный текст в Excel?
• Как подсчитать, начинаются ли ячейки или заканчиваются определенным текстом в Excel?
• Как подсчитать и удалить дубликаты из списка в Excel?

---