Как да изтриете редове с отрицателни стойности в Excel?
Да предположим, че имате следния диапазон от данни и искате да изтриете целите редове, ако числото е отрицателно в колона B, има ли добри методи за решаване на този проблем в Excel?
Изтрийте редове с отрицателни числа с помощта на VBA код Изтрийте редове с отрицателни числа с помощта на Kutools за 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 за Excel
За да се справя с тази работа, Kutools за ExcelЕ Изберете конкретни клетки функция също може да ви направи услуга, с тази помощна програма можете първо да изберете целите редове, съдържащи отрицателните стойности, и след това да изтриете целите редове, както ви е необходимо.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете колоната, съдържаща отрицателни числа, които искате да изтриете.
2, След това кликнете Kutools > Изберете > Изберете конкретни клетки, вижте екранна снимка:
3. В Изберете конкретни клетки изберете диалоговия прозорец Цял ред опция в Тип селекция, след което изберете По-малко от от Специфичен тип и влизай 0 в текстовото поле до критериите, вижте екранната снимка:
4, След това кликнете Ok, редовете, които съдържат отрицателни числа, са избрани наведнъж и след това щракнете Начало > Изтрий > Изтриване на редовете на листа за да изтриете избраните редове, както ви е необходимо, вижте екранни снимки:
Съвети: Можете също да щракнете с десния бутон, за да изберете Изтрий от контекстното меню, за да изтриете избраните редове.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!