Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

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

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

документ удалить, если не жирный 1

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

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

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


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 кнопку.

документ удалить, если не жирный 2

И тогда вы можете увидеть, что строки, которые не содержат выделенных жирным шрифтом ячеек, были удалены.

документ удалить, если не жирный 1стрелка вправодокумент удалить, если не жирный 3

Примечание: строки можно удалить, только если все ячейки в одной строке не выделены жирным шрифтом.


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

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

1. Выберите диапазон данных, в котором вы хотите удалить не выделенные жирным шрифтом ячейки, и нажмите Ctrl + F включить Найти и заменить диалоговое окно и щелкните Настройки кнопка. Смотрите скриншот:

документ удалить, если не жирный 4

2. Нажмите Формат , чтобы перейти к Найти формат диалог и под шрифт вкладка, выберите Жирный из Стиль шрифта список. Смотрите скриншот:

документ удалить, если не жирный 5

3. Нажмите OK > Найти все, и все выделенные жирным шрифтом ячейки перечислены в Найти и заменить диалоговое окно и нажмите Ctrl + A чтобы выбрать все, затем закройте Найти и заменить диалог. Смотрите скриншот:

документ удалить, если не жирный 6

4. Затем не снимайте выделения с этих ячеек и щелкните Kutools > Выберите > Выбрать помощника по диапазону. Смотрите скриншот:

документ удалить, если не жирный 7

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

документ удалить, если не жирный 8

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

документ удалить, если не жирный 9


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

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

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

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

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

документ удалить, если не жирный 15

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

документ удалить, если не жирный 11

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

документ удалить, если не жирный 12

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

документ удалить, если не жирный 13стрелка вправодокумент удалить, если не жирный 14

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.