Как да изчистя филтрите от всички работни листове в активната работна книга в Excel?
Да предположим, че сте създали множество филтри в различни работни листове в работна книга на Excel и сега искате да изчистите всички тези филтри наведнъж. Обикновено трябва да преминете към работния лист един по един, за да проверите филтъра и след това да го изчистите ръчно. Има ли някакъв удобен метод за изчистване на филтри от всички работни листове в активна работна книга? Моля, опитайте метода в тази статия.
Изчистете филтрите от всички работни листове в активната работна книга с VBA код
Изчистете филтрите от всички работни листове в активната работна книга с VBA код
Моля, стартирайте VBA скрипта по-долу, за да изчистите филтрите от всички работни листове в активната работна книга.
1. В работната книга, от която трябва да изчистите филтрите, моля, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA скрипт в прозореца на модула. Вижте екранната снимка по-долу:
VBA код: Изчистете филтрите от всички работни листове в активната работна книга
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Натисни F5 ключ за изпълнение на кода. Тогава всички филтри във всички работни листове в текущата работна книга се изчистват незабавно.
Свързани статии:
- Как да изчистите кеша на филтъра (стари елементи) от обобщена таблица в Excel?
- Как да изчистите филтрите при отваряне, запазване или затваряне на работна книга в Excel?
- Как да филтрирате данни въз основа на квадратчето за отметка в Excel?
- Как да попълня поредица от числа във филтрирана списъчна колона в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!