Как удалить строки с отрицательными значениями в Excel?
Предположим, у вас есть следующий диапазон данных, и вы хотите удалить все строки, если число в столбце B отрицательное. Есть ли какие-либо хорошие методы решения этой проблемы в Excel?
Удалите строки с отрицательными числами с помощью кода VBA Удалите строки с отрицательными числами с помощью Kutools for Excel |
Удалите строки с отрицательными числами с помощью кода VBA
Следующий код VBA может помочь вам удалить все строки, если в определенном столбце есть отрицательные числа, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: удалить строки с отрицательными числами
Sub Deleter()
'updatebyExtendoffice
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 Чтобы выполнить этот код, в поле подсказки выберите столбец чисел, из которого вы хотите найти отрицательные числа, см. снимок экрана:
4. Затем нажмите OK при нажатии кнопки строки с отрицательными числами удаляются сразу.
Удалите строки с отрицательными числами с помощью Kutools for Excel
Для выполнения этой работы, Kutools for ExcelАвтора Выбрать определенные ячейки Функция также может оказать вам услугу: с помощью этой утилиты вы можете сначала выбрать целые строки, содержащие отрицательные значения, а затем удалить целые строки по мере необходимости.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите столбец, содержащий отрицательные числа, которые вы хотите удалить.
2. Затем нажмите Кутулс > Выберите > Выбрать определенные ячейки, см. снимок экрана:
3. В Выбрать определенные ячейки диалоговое окно, выберите Весь ряд вариант в Тип выбора, а затем выберите Менее из Конкретный тип и введите 0 в текстовое поле рядом с критериями, см. снимок экрана:
4. Затем нажмите Ok, строки, содержащие отрицательные числа, были выбраны сразу, а затем щелкните Главная > Удалить > Удалить строки листов чтобы удалить выделенные строки по мере необходимости, смотрите скриншоты:
Советы: Вы также можете щелкнуть правой кнопкой мыши, чтобы выбрать Удалить из контекстного меню, чтобы удалить выбранные строки.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!