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 Sub3. 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 Sub3. 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:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
