Как да филтрирате списък и да изтриете останалите скрити или видими редове в Excel?
За филтриран списък може да се наложи да изтриете скритите или видимите редове, за да запазите само полезните данни. В тази статия ще ви покажем методи за изтриване на останалите скрити или видими редове от филтриран списък в Excel.
Изтрийте скритите редове в активния работен лист с VBA код
Изтрийте видимите редове от филтрирания списък, като изберете всички видими клетки
Лесно изтривайте скрити или видими редове от филтриран списък с Kutools за Excel
Изтрийте скритите редове в активния работен лист с VBA код
Този раздел ще ви покаже VBA код за изтриване на скрити редове в активния лист. Моля, направете следното.
1. Активирайте работния лист, от който се нуждаете, за да изтриете скрити редове, натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В прозореца на Microsoft Visual Basic за приложения щракнете Поставете > Модули. След това копирайте и поставете кода на VBA по-долу в прозореца на модула.
VBA код: Изтриване на скрити редове
Sub RemoveHiddenRows()
Dim xRow As Range
Dim xRg As Range
Dim xRows As Range
On Error Resume Next
Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRows Is Nothing Then Exit Sub
For Each xRow In xRows.Columns(1).Cells
If xRow.EntireRow.Hidden Then
If xRg Is Nothing Then
Set xRg = xRow
Else
Set xRg = Union(xRg, xRow)
End If
End If
Next
If Not xRg Is Nothing Then
MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
xRg.EntireRow.Delete
Else
MsgBox "No hidden rows found", , "Kutools for Excel"
End If
End Sub
3. Натисни F5 ключ за изпълнение на кода. Ако има скрити редове в активния лист, след изпълнение на кода ще се появи диалогов прозорец, за да ви каже колко скрити реда са изтрити. Щракнете върху OK бутон за изтриване на скритите редове. Вижте екранна снимка:
В противен случай ще получите следния диалогов прозорец след изпълнение на кода.
Забележка: горният VBA код не само може да изтрие скрити редове от филтрирания списък, но и да изтрие скрити редове, които сте скрили ръчно преди.
Изтрийте видимите редове от филтрирания списък с избиране на всички видими клетки
За да изтриете видими редове от филтрирания списък, моля, направете следното.
1. Изберете всички филтрирани редове и натиснете F5 ключ за отваряне на Отидете в диалогов прозорец, след което щракнете върху Специален бутон. Вижте екранна снимка:
2. В Отидете на Special диалоговия прозорец, проверете Само видими клетки опция и след това щракнете върху OK бутон.
3. Сега всички видими редове са избрани, щракнете с десния бутон върху селекцията и след това щракнете Изтриване на редове.
Досега всички видими редове се изтриват от филтрирания списък.
Лесно изтривайте скрити или видими редове от филтриран списък с Kutools за Excel
Горните два метода може да не са желаните решения за много потребители на Excel, тук ви представяме един удобен инструмент. С Изтриване на скрити (видими) редове и колони полезност на Kutools за Excel, можете лесно да изтриете скрити редове в избран диапазон/листове, активен лист или всички работни листове в Excel.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Ако искате да изтриете само скрити или видими редове от филтриран списък, моля, изберете ръчно филтрирания диапазон и след това щракнете върху Kutools > Изтрий > Изтриване на скрити (видими) редове и колони. Вижте екранна снимка:
2. В Изтриване на скрити (видими) редове и колони диалогов прозорец, запазете В избран диапазон избрани в Погледни вътре падащ списък (можете да изберете други опции според нуждите), проверете Редове опция в Изтриване на типа раздел, и в Детайлен тип раздел, проверете Видими редове or Скрити редове опция, колкото ви трябва. И накрая щракнете върху OK бутон.
3. След това се появява диалогов прозорец, за да ви каже колко реда са били изтрити, моля, щракнете върху OK бутон.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Изтрийте скрити или видими редове от филтриран списък с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!