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