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

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

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

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

Удалить строки, если ячейка больше/меньше определённого значения с помощью кода VBA
Удалить строки, если ячейка больше/меньше определённого значения с помощью Kutools для Excel
Удалить строки, если ячейка больше/меньше определённого значения с помощью Kutools для Excel

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

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

1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно кода.

Код VBA: Удалить строки, если ячейка больше/меньше определённого значения в Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Примечание: В приведённом выше коде >30000 означает, что строки будут удалены, если значения ячеек в указанном столбце больше 30000. Если вы хотите удалять строки, когда значения ячеек меньше заданного числа, замените знак > на < и укажите нужное значение.

3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools для Excel выберите диапазон (один столбец, в котором нужно найти ячейки, большие или меньшие определённого значения), затем нажмите кнопку ОК. См. снимок экрана:

выполнение кода VBA для выбора списка данных

Затем все строки, в которых значение ячеек в столбце D превышает 30 000, будут немедленно удалены.

все строки, в которых значение ячейки соответствует критериям, удаляются

Удалить строки, если ячейка больше/меньше определённого значения с помощью Kutools для Excel

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

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

1. Выберите столбец, на основе которого вы хотите удалить строки, затем нажмите Kutools > Выбрать > Выбрать определенные ячейки. См. снимок экрана:

нажмите функцию «Выделить определенные ячейки» Kutools

2. В диалоговом окне Выбрать определенные ячейки выберите Вся строка в разделе Выбрать тип. В разделе Указать тип выберите Больше чем или Меньше чем в первом выпадающем списке, введите нужное значение в следующее текстовое поле и нажмите кнопку ОК.

задайте критерии в диалоговом окне

3. Затем появится диалоговое окно с информацией о количестве выбранных строк. Нажмите кнопку ОК, и все строки со значениями больше 30000 в столбце D будут немедленно выделены.

4. Щёлкните правой кнопкой мыши по одной из выбранных строк и выберите команду Удалить в контекстном меню. Все выбранные строки будут удалены.

нажмите «Удалить»

Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.

Удалить строки, если ячейка больше/меньше определённого значения с помощью Kutools для Excel

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

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

1. Выделите заголовок столбца и нажмите Данные > Фильтр. См. снимок экрана:

нажмите «Данные» > «Фильтр»

2. Нажмите стрелку раскрывающегося списка в столбце, на основе которого вы будете удалять строки, затем выберите Числовые фильтры > Больше чем или Меньше чем, как показано на снимке экрана ниже:

нажмите «Числовые фильтры» > «Больше» или «Меньше»

3. В диалоговом окне Пользовательский автофильтр введите нужное число в поле «больше чем» или «меньше чем», затем нажмите кнопку ОК.

введите критерии в диалоговом окне

4. После этого все строки, в которых значения ячеек в столбце D больше или меньше заданного, будут отфильтрованы. Чтобы удалить все отфильтрованные строки, выделите отфильтрованные данные и нажмите Kutools > Удалить > Удалить скрытые строки/столбцы. См. снимок экрана:

нажмите функцию «Удалить скрытые (видимые) строки и столбцы» Kutools

5. В диалоговом окне Удалить скрытые строки/столбцы убедитесь, что в поле Искать в выбран параметр Выбранный диапазон, в разделе Тип удаления выберите Строки, укажите опцию «Видимые строки» в разделе Подробный тип и, наконец, нажмите кнопку ОК.

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

6. Затем все видимые строки в выбранном диапазоне будут немедленно удалены. Чтобы отменить фильтр, нажмите Данные > Фильтр.

Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.

Связанные статьи:

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

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек