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 dold i det valda intervallet med VBA-kod
Kontrollera om raden är dold i ett kalkylblad med VBA-kod

---

Kontrollera om raden är dold i det valda intervallet med VBA-kod

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

1. Välj det intervall som du vill söka 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 efter dolda rader i valt intervall

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 de dolda raderna som visas nedan.

---

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

Nedanstående VBA-kod kan hjälpa dig att söka efter dolda rader i ett kalkylblad i Excel. Gör så här.

1. Öppna kalkylbladet du behöver för att söka 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 intervall 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?