Перейти к основному содержанию

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

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

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


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

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

1. Нажмите другой + 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 for Excel В диалоговом окне выберите диапазон (один столбец), который вы найдете, если ячейки в этом столбце больше или меньше определенного значения. А затем нажмите OK кнопка. Смотрите скриншот:

Затем все строки со значением ячейки больше 30000 в столбце D немедленно удаляются.


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

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

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

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

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

3. Затем появится диалоговое окно, в котором указано, сколько строк выбрано. Щелкните значок OK кнопка. И вы можете видеть, что все строки со значением больше 30000 в столбце D выбираются немедленно.

4. Щелкните правой кнопкой мыши одну из выбранных строк, затем щелкните Удалить из контекстного меню. И все выбранные строки удаляются.

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


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

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

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите заголовок столбца, затем щелкните Данные > ФИЛЬТР. Смотрите скриншот:

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

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

4. Затем все строки с определенными ячейками, которые больше или меньше определенного значения в столбце D, отфильтровываются. Вы можете удалить все отфильтрованные строки, выбрав отфильтрованные данные и нажав Кутулс > Удалить > Удалить скрытые (видимые) строки и столбцы. Смотрите скриншот:

5. в Удалить скрытые (видимые) строки и столбцы диалоговом окне убедитесь, что В выбранном диапазоне опция выбрана в Заглянуть выпадающий список, выберите Ряды в Удалить тип в разделе "Видимые строки" укажите в поле Подробный тип раздел и, наконец, щелкните OK .

6. После этого все видимые строки в выбранном диапазоне немедленно удаляются, вы можете отменить фильтр, нажав Данные > ФИЛЬТР.

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


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


Статьи по теме:

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

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

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations