Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

Удалите ячейки, если не выделены жирным шрифтом, с помощью Find and Replace и Select Range Helper

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

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

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

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

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

doc удалить, если не полужирный 1doc arrow rightdoc удалить, если не полужирный 3

Примечание. Строки можно удалить только тогда, когда все ячейки в одной строке не выделены полужирным.

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

Удалите ячейки, если не выделены жирным шрифтом, с помощью Find and Replace и Select Range Helper

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

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

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

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

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

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

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

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

4. Затем сохраните эти ячейки и нажмите Kutools > Выбрать > Выбрать Range Helper, Смотрите скриншот:

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

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

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

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

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


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

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

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

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

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

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

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

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

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

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

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

doc удалить, если не полужирный 13doc arrow rightdoc удалить, если не полужирный 14

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


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
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.