¿Cómo verificar si la fila está oculta en Excel?
Este artículo habla de verificar si la fila está oculta en un rango específico o una hoja de trabajo en Excel.
Verifique si la fila está oculta en el rango seleccionado con el código VBA
Verifique si la fila está oculta en una hoja de trabajo con código VBA
Verifique si la fila está oculta en el rango seleccionado con el código VBA
Haga lo siguiente para verificar si las filas están ocultas en un rango seleccionado y encontrar el número de fila oculto.
1. Seleccione el rango en el que buscará filas ocultas. 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 el código de VBA a continuación en la ventana de código.
Código de VBA: busque filas ocultas en el rango seleccionado
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. presione el F5 clave para ejecutar el código.
Luego, para Microsoft Excel Aparece el cuadro de diálogo para mostrarle las filas ocultas como se muestra a continuación.
Verifique si la fila está oculta en una hoja de trabajo con código VBA
El siguiente código VBA puede ayudarlo a buscar filas ocultas en una hoja de trabajo en Excel. Haz lo siguiente.
1. Abra la hoja de trabajo que necesita para verificar si hay filas ocultas, 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 el código de VBA a continuación en la ventana de código.
Código de VBA: verifique si la fila está oculta en la hoja de trabajo
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. presione el F5 clave para ejecutar el código.
Luego, para Microsoft Excel aparece el cuadro de diálogo para mostrarle las filas ocultas en la hoja de trabajo actual como se muestra a continuación.
Note: Si ahora existen filas ocultas en el rango u hoja de trabajo seleccionados, obtendrá el cuadro de diálogo como se muestra a continuación.
Artículos relacionados:
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!