¿Cómo borrar los filtros de todas las hojas de trabajo en el libro activo en Excel?
Supongamos que ha creado varios filtros en diferentes hojas de trabajo en un libro de Excel y ahora desea borrar todos estos filtros a la vez. Normalmente, debe cambiar a la hoja de trabajo uno por uno para verificar el filtro y luego borrarlo manualmente. ¿Existe algún método conveniente para borrar los filtros de todas las hojas de trabajo en un libro activo? Pruebe el método de este artículo.
Borre los filtros de todas las hojas de trabajo en el libro de trabajo activo con código VBA
Borre los filtros de todas las hojas de trabajo en el libro de trabajo activo con código VBA
Ejecute el siguiente script VBA para borrar los filtros de todas las hojas de trabajo en el libro activo.
1. En el libro de trabajo del que necesita borrar los filtros, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente script VBA en la ventana del Módulo. Vea la siguiente captura de pantalla:
Código de VBA: borre los filtros de todas las hojas de trabajo en el libro activo
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. presione el F5 clave para ejecutar el código. Luego, todos los filtros en todas las hojas de trabajo en el libro de trabajo actual se borran inmediatamente.
Artículos relacionados:
- ¿Cómo borrar la caché de filtro (elementos antiguos) de la tabla dinámica en Excel?
- ¿Cómo borrar los filtros al abrir, guardar o cerrar un libro de trabajo en Excel?
- ¿Cómo filtrar datos según la casilla de verificación en Excel?
- ¿Cómo completar una serie de números en una columna de lista filtrada en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!