Note: The other languages of the website are Google-translated. Back to English

Как удалить строки, если ячейка больше / меньше определенного значения в 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Как я могу изменить ваш код (удалить строки, если ячейка больше или меньше определенного значения с кодом VBA), если я хочу, чтобы он работал на каждом листе книги? Мне нужно удалить строки, если дата в столбце A
Этот комментарий был сведен к минимуму модератором на сайте
Супер. Большое спасибо.
Привет из Стамбула
Номинальный 5 из 5
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL