Как да изтриете редове, които не съдържат определен текст в Excel?
Може би някои от вас знаят как да изтрият целите редове, когато съдържат определени текстове в Excel, но ако искате да изтриете целия ред, когато не съдържат определени текстове, как бихте могли да го направите? Сега следвайте този урок, може да намерите начин да разрешите този проблем в Excel.
Изтрийте редове, които не съдържат определен текст, с филтър
Изтрийте редове, които не съдържат определен текст с VBA
Изтрийте редове, които не съдържат определен текст с Kutools за Excel
Изтрийте редове, които не съдържат определен текст, с филтър
В Excel функцията Филтър може бързо да ви помогне да филтрирате редовете, които не съдържат определен текст, след което можете да ги изберете за изтриване.
1. Изберете колоната, която съдържа текстове, въз основа на които ще премахнете редове, и щракнете Дата > филтър. Вижте екранна снимка:
2. В заглавката на колоната има бутон за филтриране и щракнете върху него, за да отворите падащия списък, маркирайте всички с изключение на конкретния текст, на който искате да се базирате. Вижте екранна снимка:
3. След това можете да видите само заглавния ред и редовете, които не съдържат определен текст, се филтрират. Вижте екранна снимка:
4. Изберете всички от тях с изключение на заглавния ред и щракнете с десния бутон, за да изберете Изтриване на реда от контекстното меню. Вижте екранна снимка:
5. След това кликнете Дата > филтър отново и след това всички редове, които не съдържат определен текст, се изтриват. Вижте екранна снимка:
Изтрийте редове, които не съдържат определен текст с VBA
VBA е много полезен за донякъде трудни операции в Excel и следвайте стъпките по-долу, за да изтриете редовете, които не съдържат определен текст.
1. Натиснете Alt + F11 за показване на Microsoft Visual Basic за приложения прозорец.
2. В прозореца щракнете Поставете > Модули за да покажете нов прозорец на модула, след това копирайте следния VBA код в прозореца на модула.
VBA: Изтриване на целия ред, ако клетката съдържа определен текст.
Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
Set xRow = WorkRng.Rows(i)
Set rng = xRow.Find(xStr, LookIn:=xlValues)
If rng Is Nothing Then
xRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. кликване бягане и се появява диалогов прозорец, за да изберете диапазон, който да работи. Вижте екранна снимка:
4. След това кликнете OKи въведете текста, въз основа на който искате да премахнете редове, в друг изскачащ диалогов прозорец. Вижте екранна снимка:
5. кликване OK, а редовете, които не съдържат Apple, ще бъдат премахнати.
Изтрийте редове, които не съдържат определен текст с Kutools за Excel
Ако смятате, че горните методи не са лесни за вас, можете да използвате Kutools за Excel's Изберете конкретни клетки функция.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега
1. Изберете колоната, в която искате да изтриете редовете, които не съдържат определен текст, и щракнете Kutools > Изберете Инструменти > Изберете конкретни клетки. Вижте екранна снимка:
2. И в Изберете конкретни клетки диалог, проверка Цял ред, и изберете Не съдържаи въведете конкретния текст в текстовото поле, също така можете да щракнете върху бутона за диапазон в Специфичен тип раздел, за да изберете клетката, която съдържа определен текст.
3. След това кликнете Ok, тогава редовете, които не съдържат определен текст, са избрани, щракнете с десния бутон, за да изберете Изтрий от контекстното меню. Вижте екранна снимка:
4. Сега всички редове, които не съдържат определен текст в диапазона, се премахват. Щракнете върху нея за повече информация относно Избор на конкретни клетки.
Относителни статии:
- Изтрийте цели редове, ако клетката не съдържа нула в Excel
- Изтриване на редове, които не отговарят на критериите на друг лист
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!