Seleccione todas las filas ocultas para eliminar.
Presione Ctrl + 9.
Ir al comando especial
Seleccione cualquier celda dentro del rango que contenga filas ocultas.
En el menú Inicio, seleccione Buscar y seleccionar> Ir a oferta especial.
Seleccione la opción Espacios en blanco.
Seleccione Aceptar.
Haga clic derecho.
En cualquiera de las filas seleccionadas, haga clic derecho y elija Eliminar en el menú contextual.
Eliminar filas ocultas enteras mediante el cuadro de diálogo Buscar y reemplazar
Seleccione cualquier celda que contenga filas ocultas.
Presione el acceso directo Ctrl + H para iniciar el cuadro de diálogo Buscar y reemplazar.
Haga clic en el botón Opciones>> y verifique si el menú desplegable Buscar en muestra Todo el libro. Si no, selecciónelo.
Escriba ^~ en el cuadro de texto Buscar.
Deje el cuadro de texto Reemplazar con vacío.
Haga clic en Buscar todo.
Seleccione Todo.
Haga clic en el botón Reemplazar todo.
Método UDF para eliminar filas ocultas
Seleccione cualquier celda.
En la pestaña Fórmulas, seleccione Definir nombre.
Ingrese Delete_Rows en el cuadro de texto Nombre.
En el cuadro de texto Se refiere a, escriba la siguiente fórmula.
`Función pública Delete_Rows() como booleano Dim ws como hoja de trabajo para cada ws en ThisWorkbook.Worksheets Si no es ws.Visible, entonces Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseIf ws.Visible =xlSheetVisible Luego, Siguiente ws Delete_Rows =True End Function`
Haga clic en Aceptar.
Seleccione las filas visibles que no contienen filas ocultas y haga clic en F5 para abrir el cuadro de diálogo Ir a.
En la lista desplegable Especial, seleccione la opción Fórmulas y haga clic en Aceptar.
Presione Ctrl + C.
Seleccione cualquier celda.
Presione Ctrl + H para iniciar el cuadro de diálogo Buscar y reemplazar.
Haga clic en el botón Opciones>>.
Seleccione Por valores en la lista desplegable Buscar.
Haga clic en Aceptar.
Haga clic derecho en la celda activa y seleccione Pegado especial en el menú contextual.
En Pegar, elija Fórmulas.
Haga clic en Aceptar.
Haga clic en el botón Reemplazar todo.
Guarde su libro con un nombre de archivo diferente para conservar una copia de seguridad.