Hoe controleer je of een rij in Excel verborgen is?

Dit artikel gaat over het controleren of een rij verborgen is in een gespecificeerd bereik of werkblad in Excel.

Controleer of een rij verborgen is in het geselecteerde bereik met VBA-code
Controleer of een rij verborgen is in een werkblad met VBA-code

Controleer of een rij verborgen is in het geselecteerde bereik met VBA-code

Volg de onderstaande stappen om te controleren of er rijen verborgen zijn in een geselecteerd bereik en om het nummer van de verborgen rij te vinden.

1. Selecteer het bereik waarin u verborgen rijen wilt controleren. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het codevenster.

VBA-code: controleer op verborgen rijen in geselecteerd bereik

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. Druk op de F5-toets om de code uit te voeren.

Er verschijnt een Microsoft Excel-dialoogvenster dat de verborgen rijen weergeeft, zoals te zien is in de onderstaande schermafbeelding.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Controleer of een rij verborgen is in een werkblad met VBA-code

De onderstaande VBA-code kan helpen om verborgen rijen in een werkblad in Excel te controleren. Volg de onderstaande stappen.

1. Open het werkblad waarin u verborgen rijen wilt controleren en druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het codevenster.

VBA-code: controleer of een rij verborgen is in een werkblad

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. Druk op de F5-toets om de code uit te voeren.

Er verschijnt een Microsoft Excel-dialoogvenster dat de verborgen rijen in het huidige werkblad weergeeft, zoals te zien is in de onderstaande schermafbeelding.

Opmerking: Als er geen verborgen rijen bestaan in het geselecteerde bereik of werkblad, krijgt u het dialoogvenster zoals te zien is in de onderstaande schermafbeelding.

Gerelateerde artikelen:

• Hoe controleer je of het eerste teken in een cel een letter of cijfer is in Excel?