Hogyan lehet törölni a szűrőket az Excel összes munkafüzetéből az összes munkalapról?
Tegyük fel, hogy több szűrőt hozott létre különböző munkalapokon egy Excel-munkafüzetben, és most ezeket a szűrőket egyszerre szeretné törölni. Normál esetben egyenként kell áttérnie a munkalapra a szűrő ellenőrzéséhez, majd manuális törléséhez. Van-e valamilyen kényelmes módszer a szűrők törlésére az aktív munkafüzet összes munkalapjáról? Kérjük, próbálja ki a cikkben található módszert.
Szűrők törlése az VBA kóddal ellátott aktív munkafüzet összes munkalapjáról
Szűrők törlése az VBA kóddal ellátott aktív munkafüzet összes munkalapjáról
Kérjük, futtassa az alábbi VBA parancsfájlt, hogy törölje a szűrőket az aktív munkafüzet összes munkalapjáról.
1. A munkafüzetben, amelyből törölnie kell a szűrőket, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA parancsfájlt a Modul ablakba. Lásd az alábbi képernyőképet:
VBA-kód: Törölje a szűrőket az aktív munkafüzet összes munkalapjáról
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. megnyomni a F5 gombot a kód futtatásához. Ezután az aktuális munkafüzet összes munkalapján lévő összes szűrő azonnal törlődik.
Kapcsolódó cikkek:
- Hogyan lehet törölni a szűrő gyorsítótárát (régi elemeket) az Excel kimutató táblájából?
- Hogyan törölhetők a szűrők az Excel munkafüzet megnyitásakor, mentésekor vagy bezárásakor?
- Hogyan szűrhetők az adatok az Excel jelölőnégyzete alapján?
- Hogyan lehet kitölteni a számsorokat az Excel szűrt listájának oszlopában?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!