Cómo eliminar todas las filas o columnas ocultas en Excel

¿Ha ocultado alguna vez filas o columnas en Microsoft Excel? Casi todos los usuarios de Excel probablemente lo han hecho.

Muchos usuarios de Excel ocultan filas o columnas que no quieren mostrar por diversas razones. Ocultan durante un tiempo que la visualización de datos se ve bien.

Esta es una forma de mantener visibles los datos útiles, y no hay necesidad de borrar los datos que no necesitas que sean visibles.

Cuando los datos estén listos para que los publiques o para que los compartas, las filas o columnas ocultas aparecerán molestas. Si hay muchas filas o columnas ocultas, eliminarlas manualmente es una tarea que lleva mucho tiempo.

Para solucionar esto, Excel tiene una función incorporada para encontrar y eliminar filas y columnas ocultas a la vez. Aquí hay algunos pasos fáciles y rápidos para eliminar todas las filas o columnas ocultas en Excel.

Eliminar todas las filas o columnas ocultas en Excel con Inspeccionar documento

1. Haga clic en la pestaña «File» del menú de Microsoft Excel.

2. A continuación, haga clic en el botón «Info». En la sección «Inspect Workbook», haga clic en el botón «Check for Issues». A continuación, seleccione la opción «Inspect Document». Si no ha guardado el archivo, aparecerá un aviso para que lo guarde primero.

3. En el cuadro de diálogo «Document Inspector», haga clic en el botón «Inspect».

4. A continuación, desplácese hacia abajo y busque «Hidden Rows and Columns». A continuación, haga clic en el botón «Remove All».

Tenga cuidado al hacerlo. No se puede volver a lo anterior con el proceso «Undo».

Eliminar todas las filas o columnas ocultas en Excel con VBA

Si no sabe cómo utilizar VBA en Microsoft Excel, puede consultar nuestros otros artículos. Cómo hacer macros simples en Excel.

El siguiente script VBA borrará todas las filas y columnas de una Hoja de Cálculo.

Sub DeleteHiddenRowsColumns()
Dim sht As Worksheet
Dim LastRow as Integer
Dim LastCol as Integer
Set sht = ActiveSheet
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column
For i = LastRow To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete
Next
For i = LastCol To 1 Step -1
If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete
Next
End Sub