¿Cómo borrar los filtros de todas las hojas de cálculo en el libro de trabajo activo en Excel?
Supongamos que has creado múltiples filtros en diferentes hojas de cálculo dentro de un libro de Excel, y ahora quieres eliminar todos estos filtros a la vez. Normalmente, necesitarías cambiar a cada hoja de cálculo una por una para revisar el filtro y luego borrarlo manualmente. ¿Existe algún método conveniente para limpiar los filtros de todas las hojas de cálculo en el libro de trabajo activo? Por favor, prueba el método descrito en este artículo.
Borrar filtros de todas las hojas de cálculo en el libro de trabajo activo con código VBA
Borrar filtros de todas las hojas de cálculo en el libro de trabajo activo con código VBA
Por favor, ejecuta el siguiente script VBA para borrar los filtros de todas las hojas de cálculo en el libro de trabajo activo.
1. En el libro en el que necesitas borrar los filtros, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente script VBA en la ventana del Módulo. Ver captura de pantalla a continuación:
Código VBA: Borrar filtros de todas las hojas de cálculo en el libro de trabajo 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. Presiona la tecla F5 para ejecutar el código. Luego, todos los filtros en todas las hojas de cálculo del libro actual se eliminarán inmediatamente.
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Artículos relacionados:
- ¿Cómo borrar el caché de filtros (elementos antiguos) de una Tabla Dinámica en Excel?
- ¿Cómo borrar filtros al abrir, guardar o cerrar un libro en Excel?
- ¿Cómo filtrar datos basados en una casilla de verificación en Excel?
- ¿Cómo llenar una serie de números en una columna de lista filtrada en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos