Wie überprüfe ich, ob die Zeile in Excel ausgeblendet ist?
In diesem Artikel wird überprüft, ob die Zeile in einem bestimmten Bereich oder in einem Arbeitsblatt in Excel ausgeblendet ist.
Überprüfen Sie mit VBA-Code, ob die Zeile im ausgewählten Bereich ausgeblendet ist
Überprüfen Sie, ob die Zeile in einem Arbeitsblatt mit VBA-Code ausgeblendet ist
Überprüfen Sie mit VBA-Code, ob die Zeile im ausgewählten Bereich ausgeblendet ist
Gehen Sie wie folgt vor, um zu überprüfen, ob Zeilen in einem ausgewählten Bereich ausgeblendet sind, und suchen Sie die ausgeblendete Zeilennummer.
1. Wählen Sie den Bereich aus, in dem Sie nach ausgeblendeten Zeilen suchen möchten. Drücken Sie die Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Überprüfen Sie den ausgewählten Bereich auf ausgeblendete Zeilen
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
Dann wird ein Microsoft Excel Das Dialogfeld wird angezeigt, in dem die ausgeblendeten Zeilen angezeigt werden (siehe Abbildung unten).
Überprüfen Sie, ob die Zeile in einem Arbeitsblatt mit VBA-Code ausgeblendet ist
Der folgende VBA-Code kann Ihnen helfen, in Excel in einem Arbeitsblatt nach versteckten Zeilen zu suchen. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Arbeitsblatt, das Sie benötigen, um nach ausgeblendeten Zeilen zu suchen, und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Überprüfen Sie, ob die Zeile im Arbeitsblatt ausgeblendet ist
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
Dann wird ein Microsoft Excel Das Dialogfeld wird angezeigt, in dem die ausgeblendeten Zeilen im aktuellen Arbeitsblatt angezeigt werden (siehe Abbildung unten).
Note: Wenn jetzt versteckte Zeilen im ausgewählten Bereich oder Arbeitsblatt vorhanden sind, wird das folgende Dialogfeld angezeigt (siehe Abbildung).
In Verbindung stehende Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!