KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как очистить содержимое ячейки в Excel на основе определённого условия?

АвторСяоянДата изменения

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

Очистить содержимое ячейки на основе значения ячейки с помощью кода VBA

Очистить Вся строка, если значение больше или меньше заданного, с помощью кода VBA

Очистка содержимого ячеек или строк на основе значения ячейки с помощью удобной функции

Очистить Вся строка, если другая ячейка пустая, с помощью кода VBA

Очистить содержимое ячейки на основе Цвет фона с помощью кода VBA

Очистить содержимое ячейки на основе значения ячейки с помощью кода VBA

Например, у вас есть следующий диапазон данных, и вы хотите очистить содержимое ячеек со значением «Hoodie». Приведённый ниже код VBA поможет вам в этом.

образец данных

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.

Код VBA: Очистить содержимое ячейки, если ячейка равна заданному значению

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Примечание: В приведённом выше коде A2:A12— это Диапазон данных, из которого вы хотите выполнить Очистить содержимое ячейки; текст «Hoodie» — это конкретное значение, которое требуется очистить. Пожалуйста, замените их на свои собственные.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и всё содержимое ячеек с текстом «Hoodie» будет немедленно удалено (см. скриншот):

код VBA для очистки содержимого ячеек на основе значения ячейки

снимок экрана kutools for excel ai

Раскройте магию Excel с помощью KUTOOLS AI

  • Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
  • Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
  • Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
  • Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Расширьте возможности Excel с помощью инструментов на базе ИИ.Скачать сейчаси ощутите эффективность, как никогда раньше!

Очистить Вся строка, если значение больше или меньше заданного, с помощью кода VBA

Предположим, у вас есть следующий диапазон данных. Требуется очистить содержимое всей строки, если значение в столбце D больше или меньше 300. Ниже приведён код VBA для выполнения этой задачи.

образец данных

1Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2Нажмите Вставка>Модульи вставьте приведённый ниже код в окно модуля.

Код VBA: Очистить Вся строка, если значение ячейки больше или меньше заданного

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Примечание: В приведённом выше коде D2:D12— это Диапазон данных, содержащий конкретное значение, на основе которого вы хотите очищать строки;300— это конкретное значение; символ >в строке кода If xCell.Value > xStrValue Thenозначает «больше чем». Чтобы использовать «меньше чем», замените его на символ <по мере необходимости.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и всё содержимое строк будет очищено, если значение в столбце D больше 300 (см. скриншот):

код VBA для очистки целых строк, если значение больше или меньше заданного

Очистка содержимого ячеек или строк на основе значения ячейки с помощью удобной функции

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

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

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

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

нажмите Kutools > Выделить > Выделить определенные ячейки

2. В открывшемся диалоговом окне Выбрать определенные ячейки выполните следующие действия:

  • Щелкните ячейкуили Вся строка, которую хотите выделить;
  • Укажите критерии в разделе Указать тип по мере необходимости. В данном случае я хочу выделить строки, в которых значения в столбце D больше 300.

укажите параметры в диалоговом окне

3. Затем нажмите кнопку ОК, и все строки со значениями, превышающими 300, будут выделены. Теперь достаточно нажать клавишу Delete на клавиатуре, чтобы удалить содержимое ячеек (см. скриншот):

все строки со значением, превышающим заданное, выделены, затем содержимое удалено

Советы: Доступно множество других критериев. Вы можете указать собственное условие в диалоговом окне, как показано на скриншоте ниже:
множество других критериев в диалоговом окне

Очистить строки Данные в выделенном диапазоне, если они содержат пустые ячейки, с помощью кода VBA

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

Очистка данных строк в диапазоне при наличии пустой ячейки

Чтобы выполнить эту задачу, используйте следующий код VBA:

1.Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.

Код VBA: Очистить данные строк, если они содержат пустые ячейки

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Примечание: В приведённом выше коде A2:D12— это Диапазон данных, содержащий пустые ячейки, из которого вы хотите выполнить Очистить содержимое ячейки.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и строки с пустыми ячейками немедленно исчезнут из указанного диапазона.

Очистить содержимое ячейки на основе Цвет фона с помощью кода VBA

Чтобы очистить ячейки с определённым цветом фона, воспользуйтесь следующим кодом VBA.

1Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.

Код VBA: Очистить содержимое ячейки на основе Цвет фона

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Примечание: В приведённом выше коде A2:D12— это Диапазон данных, который вы хотите использовать;RGB(252, 228, 214)— это конкретный цвет, на основе которого вы хотите очищать ячейки. Вы можете определить RGB-код этого Цвет фона с помощью программы Paintна вашем компьютере.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и содержимое ячеек с указанным цветом фона будет немедленно очищено. См. скриншот:

код VBA для очистки содержимого ячеек на основе цвета фона

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

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

  • Супер строка формул (удобное редактирование многострочного текста и формул); Режим чтения (удобный просмотр и редактирование большого количества ячеек); Вставка в диапазон фильтрации…
  • Объединение ячеек, строк или столбцов с сохранением данных; разделение содержимого ячеек;Объединение дублирующихся строк с суммированием или усреднением… предотвращение дублирования записей в ячейках;Сравнение диапазонов…
  • Выбор дубликатов или уникальных строк; выбор пустых строк (все ячейки пустые); улучшенный и нечёткий поиск по множеству книг; случайный выбор…
  • Точная копия нескольких ячеек без изменения ссылок в формулах; автоматическое создание ссылок на несколько листов; вставка маркеров, флажков и многое другое…
  • Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Защита ячеек паролем; Создание списка рассылкии отправка электронных писем…
  • Извлечение текста, добавление текста, удаление символов в определённой позиции, удаление пробелов; создание и печать статистики по странице данных; преобразование между содержимым ячеек и примечаниями…
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); расширенная сортировка по месяцам, неделям, дням, частоте и другим параметрам; специальный фильтр по полужирному, курсиву…
  • Объединение книг и листов; объединение таблиц на основе ключевого столбца; разделение данных на несколько листов; пакетное преобразование XLS, XLSX и PDF…
  • Сводная таблица: группировка по номеру недели, дню недели и многому другому… Показ разблокированных и заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы или имена…
kte tab 201905
  • Включите вкладки для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — это удобнее, чем использовать отдельные окна.
  • Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!
officetab bottom