Note: The other languages of the website are Google-translated. Back to English

¿Cómo filtrar una lista y eliminar el resto de filas ocultas o visibles en Excel?

Para una lista filtrada, es posible que deba eliminar las filas ocultas o visibles para conservar solo los datos útiles. En este artículo, le mostraremos métodos para eliminar el resto de filas ocultas o visibles de una lista filtrada en Excel.

Eliminar filas ocultas en la hoja de trabajo activa con código VBA
Eliminar filas visibles de la lista filtrada seleccionando todas las celdas visibles
Elimine fácilmente filas ocultas o visibles de la lista filtrada con Kutools para Excel


Eliminar filas ocultas en la hoja de trabajo activa con código VBA

Esta sección le mostrará el código VBA para eliminar filas ocultas en la hoja activa. Haz lo siguiente.

1. Active la hoja de trabajo que necesita para eliminar filas ocultas, presione otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en recuadro > Módulo. Y luego copie y pegue el siguiente código VBA en la ventana del Módulo.

Código de VBA: eliminar filas ocultas

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. presione el F5 clave para ejecutar el código. Si hay filas ocultas en la hoja activa, después de ejecutar el código, aparecerá un cuadro de diálogo para indicarle cuántas filas ocultas se han eliminado. Haga clic en el OK para eliminar las filas ocultas. Ver captura de pantalla:

doc borrar resto 1

De lo contrario, obtendrá el siguiente cuadro de diálogo después de ejecutar el código.

doc borrar resto 1

Nota:: el código VBA anterior no solo puede eliminar filas ocultas de la lista filtrada, sino también eliminar filas ocultas que ha ocultado manualmente antes.


Eliminar filas visibles de la lista filtrada con la función de seleccionar todas las celdas visibles

Para eliminar filas visibles de la lista filtrada, haga lo siguiente.

1. Seleccione todas las filas filtradas y presione F5 clave para abrir el Para ir cuadro de diálogo, luego haga clic en el En Oferta botón. Ver captura de pantalla:

doc borrar resto 1

2. En el Ir a Especial cuadro de diálogo, verifique Solo celdas visibles opción, y luego haga clic en la OK

doc borrar resto 1

3. Ahora todas las filas visibles están seleccionadas, haga clic con el botón derecho en la selección y luego haga clic en Eliminar filas.

doc borrar resto 1

Hasta ahora, todas las filas visibles se eliminan de la lista filtrada.


Elimine fácilmente filas ocultas o visibles de la lista filtrada con Kutools para Excel

Los dos métodos anteriores pueden no ser las soluciones deseadas para muchos usuarios de Excel, aquí le presentamos una herramienta útil. Con la Eliminar filas y columnas ocultas (visibles) utilidad de Kutools for Excel, puede eliminar fácilmente las filas ocultas en el rango / hojas seleccionados, la hoja activa o todas las hojas de trabajo en Excel.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Si solo desea eliminar filas ocultas o visibles de una lista filtrada, seleccione el rango filtrado manualmente y luego haga clic en Kutools > Borrar > Eliminar filas y columnas ocultas (visibles). Ver captura de pantalla:

2. En el Eliminar filas y columnas ocultas (visibles) cuadro de diálogo, mantenga el En rango seleccionado seleccionado en el Pase a ver lista desplegable (puede seleccionar otras opciones que necesite), marque el filas opción en el Eliminar tipo sección, y en la Tipo detallado sección, verificar Filas visibles or Filas ocultas opción que necesite. Y finalmente haga clic en el OK

3. A continuación, aparece un cuadro de diálogo para indicarle cuántas filas se han eliminado, haga clic en el OK

  Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Elimine filas ocultas o visibles de la lista filtrada con Kutools para Excel


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Comentarios sobre: ​​la macro para eliminaciones de filas ocultas: lleva demasiado tiempo ejecutarse en filas de 900k para ser útil. Más de 2 horas en un Threadripper 1950X con OC y todavía en funcionamiento (tenía que finalizar la tarea). ¿Alguna forma de optimizarlo para usar múltiples núcleos o es una limitación de VBA?
Este comentario fue minimizado por el moderador en el sitio
Hola,
El código ha sido optimizado. Por favor, inténtalo. Gracias por tu comentario.

Sub Eliminar filas ocultas ()
Dim xFlag como booleano
Dim xStr, xTemp como cadena
Dim xDiv, xMod mientras
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg como rango
Dim xArr() como cadena
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Establecer xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Si xRg no es nada, salga de Sub
xRows = xRg.Rows.Count
Establecer xRg = xRg(1)
Bandera x = Verdadero
xTemp = ""
xCuenta = 0
Para I = 1 Para xFilas
Establecer xCell = xRg.Offset(I - 1, 0)
Hacer mientras xFlag
Si xCell.EntireRow.Hidden Entonces
xStr = xCelda.Dirección
xFlag = Falso
otro
Ir a CTN
Si terminar
Red ISTE Loop
Si xCell.EntireRow.Hidden Entonces
xTemp = xStr & "," & xCell.Dirección
Si terminar
Si Len(xTemp) > 171 Entonces
xCuenta = xCuenta + 1
ReDim Conservar xArr(1 a xCount)
xArr(xCuenta) = xStr
xStr = xCelda.Dirección
otro
xStr = xTemp
Si terminar
caja:
Siguiente
xCuenta = xCuenta + 1
ReDim Conservar xArr(1 a xCount)
xArr(xCuenta) = xStr
Para I = xContar hasta 1 Paso -1
si yo = 1 entonces
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
otro
xStr = xArr(I)
Si terminar
Si xDRg no es nada, entonces
Establecer xDRg = Rango (xStr)
otro
Establecer xDRg = Unión (xDRg, Rango (xStr))
Si terminar
Si (Len(xDRg.Address) >= 244) O (xCount = 1) Entonces
xDRg.EntireRow.Delete
Establecer xDRg = Nada
Si terminar
Siguiente
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Este comentario fue minimizado por el moderador en el sitio
¡Increíble gracias! Revisaré en mi próxima oportunidad / necesidad de esto y responderé.
Este comentario fue minimizado por el moderador en el sitio
El código VBA para eliminar filas ocultas funcionó perfectamente sin tocar el violín. ¡¡GRACIAS!!
Este comentario fue minimizado por el moderador en el sitio
Gracias por la info. Esto ha sido instructivo. ¿Hay alguna manera de filtrar y eliminar números específicos en filas de hasta 1 millón? ¿Se puede modificar el código anterior para hacerlo?
Este comentario fue minimizado por el moderador en el sitio
Hola,
Lo siento, no probé el código en datos de fila tan grandes. Tal vez pueda hacer una copia de sus datos y probar si el código puede funcionar.
Este comentario fue minimizado por el moderador en el sitio
Hola, este código VBA es increíblemente útil.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL