Hur kontrollerar jag om raden är dold i Excel?

Den här artikeln talar om att kontrollera om raden är dold i ett angivet intervall eller ett kalkylblad i Excel.

Kontrollera om raden är gömd i valt område med VBA-kod
Kontrollera om raden är dold i ett kalkylblad med VBA-kod

Kontrollera om raden är gömd i valt område med VBA-kod

Gör så här för att kontrollera om rader är dolda i ett valt område och hitta det dolda radnumret.

1. Välj intervallet som du ska kontrollera för dolda rader. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till kodfönstret.

VBA-kod: kontrollera efter dolda rader i det valda området

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. tryck på F5 för att köra koden.

Då en Microsoft Excel dialogrutan dyker upp för att visa dig de dolda raderna enligt skärmbilden nedan.

Kontrollera om raden är dold i ett kalkylblad med VBA-kod

VBA-koden nedan kan hjälpa dig att leta efter dolda rader i ett kalkylblad i Excel. Vänligen gör enligt följande.

1. Öppna kalkylbladet du behöver för att leta efter dolda rader, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till kodfönstret.

VBA-kod: kontrollera om raden är dold i kalkylbladet

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. tryck på F5 för att köra koden.

Då en Microsoft Excel dialogrutan dyker upp för att visa dig de dolda raderna i det aktuella kalkylbladet som visas nedan.

Anmärkningar: Om det nu finns dolda rader i valt område eller kalkylblad, får du dialogrutan som visas nedan.

Relaterade artiklar:

• Hur kontrollerar jag om första tecknet i en cell är en bokstav eller ett tal i Excel?