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

or

Как удалить строки с отрицательными значениями в Excel?

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

doc удалить с отрицательным 1  2 doc удалить с отрицательным 2

Удаление строк с отрицательными номерами с помощью кода VBA

Удаление строк с отрицательными номерами с помощью Kutools for Excel


arrow синий правый пузырь Удаление строк с отрицательными номерами с помощью кода VBA


Следующий код VBA может помочь вам удалить целые строки, если в определенном столбце есть отрицательные числа, сделайте следующее:

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

2. щелчок Вставить > модуль, и вставьте следующий код в Окно модуля.

Код VBA: удаление строк с отрицательными номерами

Sub Deleter()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

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

doc удалить с отрицательным 3

4, Затем нажмите OK , строки с отрицательными номерами удаляются сразу.


arrow синий правый пузырь Удаление строк с отрицательными номерами с помощью Kutools for Excel

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

1, Выберите столбец содержит отрицательные числа, которые вы хотите удалить.

2, Затем нажмите Kutools > Выбрать > Выберите конкретные ячейки, см. снимок экрана:

doc удалить с отрицательным 4

3. В Выберите конкретные ячейки диалоговое окно, выберите Весь ряд вариант в Тип выбора, а затем выберите Менее из Конкретный тип и введите 0 в текстовое поле рядом с критериями, см. снимок экрана:

doc удалить с отрицательным 5

4, Затем нажмите Ok, строки, содержащие отрицательные числа, были выбраны сразу, а затем щелкните Главная > Удалите файл > Удалить строки листов для удаления выбранных строк по мере необходимости, см. скриншоты:

doc удалить с отрицательным 6  2 doc удалить с отрицательным 7

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


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование 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.
  • To post as a guest, your comment is unpublished.
    prakash · 2 months ago
    thanks for the delete function .. works great .. must be numeric field not just - regards
  • To post as a guest, your comment is unpublished.
    Jon White · 9 months ago
    Thanks for this!

    Is there a way of doing this with positive values too?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hi, Jon,
      To remove rows with positive values, you just need to apply the following code, please try.
      Sub Deleter()
      Dim xRg As Range
      Dim xCell As Range
      Dim xTxt As String
      Dim I As Long
      On Error Resume Next
      xTxt = ActiveWindow.RangeSelection.Address
      Sel:
      Set xRg = Nothing
      Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      If xRg.Areas.Count > 1 Then
      MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
      GoTo Sel
      End If
      If xRg.Columns.Count > 1 Then
      MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
      GoTo Sel
      End If
      For I = xRg.Rows.Count To 1 Step -1
      If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
      Next
      End Sub