Viele Excel-Benutzer blenden Zeilen und Spalten aus, wenn sie einige Daten haben, die sie nicht sichtbar brauchen.
Es ist eine Möglichkeit, nur nützliche Daten sichtbar zu halten und gleichzeitig nicht die Daten löschen zu müssen, die nicht sichtbar sein müssen.
Und wenn Sie viele solcher versteckten Zeilen/Spalten haben, kann es mühsam sein, diese versteckten Zeilen und Spalten zu finden und zu löschen (falls Sie sie nicht benötigen).
In diesem Tutorial zeige ich Ihnen ein paar Möglichkeiten, um einfach Löschen Sie ausgeblendete Zeilen und Spalten in Excel.
Es gibt eine integrierte Methode, mit der Sie alle ausgeblendeten Zeilen und Spalten auf einmal löschen können, und Sie können auch VBA-Makrocodes verwenden, falls Sie dies auf unseren ausgewählten Zellbereich anwenden möchten.
Also lasst uns anfangen!
Löschen Sie alle versteckten Zeilen und Spalten in Excel
Wenn Sie alle ausgeblendeten Zeilen und Spalten in einer gesamten Arbeitsmappe in Excel löschen möchten, können Sie die hier gezeigte Methode verwenden.
Denken Sie daran, dass diese ausgeblendeten Zeilen und Spalten aus der gesamten Arbeitsmappe und nicht nur aus dem aktiven Blatt entfernt werden.
Nachfolgend finden Sie die Schritte zum Löschen aller ausgeblendeten Zeilen und Spalten aus der Arbeitsmappe in Excel:
- Klicken Sie auf die Dateioption
- Klicken Sie in den Optionen links auf „Info“
- Klicken Sie auf die Option „Auf Probleme prüfen“
- Klicken Sie auf die Option „Dokument prüfen“. Dadurch wird das Dialogfeld Dokumentinspektor geöffnet
- Klicken Sie im Dialogfenster „Dokumenteninspektor“ auf die Schaltfläche „Inspizieren“. Dadurch wird die gesamte Arbeitsmappe überprüft und Sie erhalten die Informationen über die Arbeitsmappe
- Scrollen Sie nach unten zur Option "Ausgeblendete Zeilen und Spalten". Sie werden sehen, dass die Gesamtzahl der ausgeblendeten Zeilen und Spalten angezeigt wird, die in der Arbeitsmappe gefunden wurden.
- Klicken Sie auf die Schaltfläche „Alle entfernen“
Die obigen Schritte würden alle ausgeblendeten Zeilen und Spalten in der Arbeitsmappe löschen.
Beachten Sie, dass Sie diese Arbeitsmappe speichern müssen, bevor Sie die Option Dokumentinspektor ausführen. Falls die Arbeitsmappe noch nicht gespeichert ist, würde Excel Sie zuerst zwingen, sie zu speichern. Außerdem wird eine Warnmeldung angezeigt, in der Sie aufgefordert werden, die Datei einmal zu speichern, da die durch diese Schritte geänderten Daten nicht wiederhergestellt werden können.
Falls keine ausgeblendeten Zeilen und Spalten vorhanden sind, sehen Sie ein grünes Häkchen vor der Option Ausgeblendet und Zeilen und Spalten (im Dialogfeld Dokumentinspektor).
Abgesehen von ausgeblendeten Zeilen und Spalten bietet Ihnen das Dialogfeld Dokumentinspektor auch viele andere nützliche Informationen - wie die Anzahl der Kommentare oder ausgeblendete Arbeitsblätter oder eingebettete Dokumente usw.
Hinweis: Sie können die vom Dokumentinspektor vorgenommenen Änderungen nicht rückgängig machen. Stellen Sie also sicher, dass Sie eine Sicherungskopie der Originaldaten haben (falls Sie diese in Zukunft benötigen).Dies ist eine großartige Methode, wenn Sie alle ausgeblendeten Spalten und Zeilen für die gesamte Arbeitsmappe löschen möchten.
Wenn Sie es jedoch nur in einem bestimmten Blatt oder in einem bestimmten Bereich löschen möchten, können Sie diese Option nicht verwenden.
In diesem Fall können Sie die als nächstes behandelte VBA-Methode verwenden.
Löschen Sie versteckte Zeilen und Spalten mit VBA
Wenn Sie nur wenige ausgeblendete Zeilen und Spalten haben, können Sie diese manuell einblenden und dann löschen.
Wenn dies jedoch häufig erforderlich ist oder Sie über einen großen Datensatz mit einer großen Anzahl von Zeilen/Spalten verfügen, die ausgeblendet sind, verwenden Sie am besten VBA-Makrocodes, um diesen Vorgang zu automatisieren.
Sehen wir uns verschiedene Szenarien an, in denen Sie VBA verwenden können, um diese versteckten Zeilen und Spalten zu löschen.
Aus einem gesamten Arbeitsblatt (verwendeter Bereich)
Während ich den VBA-Code dazu bringen kann, das gesamte Arbeitsblatt ab der letzten Zeilennummer und der letzten Spaltennummer im Arbeitsblatt zu überprüfen, wäre dies eine Ressourcenverschwendung.
Eine bessere Methode wäre, den verwendeten Bereich zu sehen und dann nur diesen verwendeten Bereich auf versteckte Zeilen und Spalten zu überprüfen.
Unten ist der VBA-Code, der alle versteckten Zeilen im verwendeten Bereich löscht:
Sub DeleteHiddenRows() Dim sht As Worksheet Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row For i = LastRow To 1 Step -1 If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete Next End Sub
Der obige VBA-Code ermittelt zuerst die letzte Zeilennummer im verwendeten Bereich und weist diese Zeilennummer der Variablen ‚LastRow‘ zu.
Diese letzte Zeilennummer wird dann in einer For Next-Schleife verwendet, wo sie mit der letzten Zeile beginnt und überprüft, ob sie ausgeblendet ist oder nicht.
Falls es ausgeblendet ist, wird die gesamte Zeile gelöscht. Und falls es nicht ausgeblendet ist, lässt der Code diese Zeile unverändert und wechselt in die Zeile darüber. Diese Schleife sucht nach allen Zeilen und löscht alle versteckten Zeilen, auf die sie dabei stößt.
Falls Sie alle ausgeblendeten Spalten im verwendeten Bereich löschen möchten, verwenden Sie den folgenden VBA-Code:
Sub DeleteHiddenColumns() Dim sht As Worksheet Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column For i = LastCol To 1 Step -1 If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete Next End Sub
Dies funktioniert wieder auf die gleiche Weise, wobei wir anstelle von Zeilen nach Spalten suchen.
Es findet also die letzte Spaltennummer im verwendeten Bereich heraus, weist sie einer Variablen zu und verwendet dann die Schleife, um von der letzten Spalte zur ersten Spalte zu gehen und dabei alle versteckten Spalten zu löschen.
Und falls Sie einen Code haben möchten, der alle ausgeblendeten Zeilen sowie die ausgeblendeten Spalten löscht, verwenden Sie den folgenden VBA-Code:
Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim LastRow as Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row LastCol = sht.UsedRanges.Columns Columns.Count).Column For i = LastRow To 1 Step -1 If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete Next End Sub
Dies ist nur der kombinierte Code für Zeilen und Spalten und funktioniert auf die gleiche Weise.
Anstelle einer Schleife werden hier zwei separate Schleifen verwendet, bei denen zuerst alle Zeilen und dann alle Spalten durchlaufen werden. Und dabei löscht es alle versteckten Zeilen und Spalten, auf die es stößt.
Beachten Sie, dass Sie diesen VBA-Code in einem regulären Modul im Visual Basic-Editor platzieren müssen. Sie können den Code dann direkt im VB-Editor ausführen, indem Sie das Makrodialogfeld verwenden oder dieses Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
Wenn dies häufig erforderlich ist, können Sie diesen Code auch der persönlichen Makroarbeitsmappe hinzufügen, damit Sie von allen Arbeitsmappen auf Ihrem System darauf zugreifen können.
Aus einem bestimmten Zellbereich
Falls Sie einen bestimmten Bereich haben, aus dem Sie ausgeblendete Zeilen und Spalten entfernen möchten, müssen Sie dies im Code angeben.
Dadurch wird sichergestellt, dass der Code nur durch die Zeilen und Spalten in diesem angegebenen Bereich kreist und die anderen Bereiche im Arbeitsblatt unberührt lässt
Unterhalb des VBA-Codes, der dies tun würde:
Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range("A1:K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows(Rng. Rows.Count).Row ColCount = Rng.Columns.Count LastCol = Rng.Columns(Rng.Columns.Count).Column For i = LastRow To LastRow - RowCount Schritt -1 If Rows(i).Hidden = True Then Rows( i).EntireRow.Delete Next For j = LastCol To LastCol - ColCount Schritt -1 Wenn Columns(j).Hidden = True Then Columns(j).EntireColumn.Delete Next End Sub
Im obigen Code habe ich den Bereich als A1:K200 angegeben.
Dadurch durchläuft der Code alle Zeilen und Spalten im angegebenen Bereich und entfernt alle ausgeblendeten Zeilen und Spalten, auf die er stößt.
Falls Sie Zeilen oder Spalten außerhalb dieses Bereichs ausgeblendet haben, bleiben diese unberührt.
So können Sie löschen versteckte Zeilen und Spalten in Excel.
Wenn Sie dies für die gesamte Arbeitsmappe tun möchten, können Sie die Option Dokumentinspektor verwenden. Und falls Sie mehr Kontrolle benötigen, können Sie die VBA-Codes wie oben gezeigt verwenden.
Ich hoffe, Sie fanden dieses Tutorial nützlich!
