Wie lösche ich dieselben Zeilen oder Bereiche über mehrere Blätter in Excel?
In diesem Artikel werden zwei Methoden zum gleichzeitigen Löschen derselben Zeilen oder Bereiche über mehrere Blätter in Excel empfohlen. Bitte gehen Sie wie folgt vor.
Löschen Sie dieselben Zeilen oder Bereiche über mehrere Blätter hinweg, indem Sie alle Blätter gruppieren
Löschen Sie dieselben Zeilen oder Bereiche über mehrere Blätter mit VBA-Codes
Löschen Sie dieselben Zeilen oder Bereiche über mehrere Blätter hinweg, indem Sie alle Blätter gruppieren
Es ist einfach, alle Arbeitsblätter zu gruppieren und dann gleichzeitig dieselben Zeilen oder Bereiche aus diesen Arbeitsblättern zu löschen.
1. Klicken Sie mit der rechten Maustaste auf eine beliebige Blattregisterkarte in der aktuellen Arbeitsmappe, und klicken Sie dann auf Wählen Sie Alle Tabellen aus aus dem Kontextmenü.
2. Jetzt sind alle Arbeitsblätter ausgewählt. Wenn Sie bestimmte Zeilen oder Bereiche in einem Arbeitsblatt löschen, werden dieselben Zeilen oder Bereiche in anderen Arbeitsblättern zusammen gelöscht.
3. Nachdem Sie Zeilen oder Bereiche über alle Blätter hinweg gelöscht haben, klicken Sie mit der rechten Maustaste auf eine Blattregisterkarte und klicken Sie dann auf Gruppierung der Blätter aufheben Klicken Sie im Kontextmenü auf, um die Gruppierung aller Arbeitsblätter aufzuheben.
Löschen Sie dieselben Zeilen oder Bereiche über mehrere Blätter mit VBA-Codes
Neben der oben beschriebenen Methode können Sie die folgenden VBA-Codes ausführen, um dieselben Zeilen oder Bereiche über mehrere Arbeitsblätter hinweg zu löschen.
Löschen Sie dieselben Zeilen auf mehreren Blättern
1. Drücken Sie Andere + F11 Tasten gleichzeitig 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 anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Löschen Sie dieselben Zeilen über mehrere Blätter in Excel
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Sub
Note: Im VBA-Code bedeutet 4: 5, dass die Zeilen 4 und 5 über mehrere Arbeitsblätter in der aktuellen Arbeitsmappe gelöscht werden. Sie können sie in die gewünschte Zeile ändern.
3. Drücken Sie F5 Schlüssel, um den Code auszuführen, dann werden die angegebenen Zeilen sofort aus allen Blättern in der aktuellen Arbeitsmappe gelöscht.
Löschen Sie dieselben Bereiche über mehrere Blätter hinweg
Um dieselben Bereiche über mehrere Blätter hinweg zu löschen, können Sie den folgenden VBA-Code verwenden.
VBA-Code: Löschen Sie denselben Bereich über mehrere Blätter
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End Sub
Drücken Sie nach dem Kopieren und Einfügen des VBA-Codes in das Modul F5 Schlüssel zum Ausführen des Codes und beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich aus, den Sie über mehrere Blätter hinweg löschen möchten, und klicken Sie dann auf OK .
Jetzt werden die Zellenwerte in diesem bestimmten Bereich sofort aus allen Blättern in der aktuellen Arbeitsmappe gelöscht.
In Verbindung stehende Artikel:
- Wie lösche ich Zeilen mit fehlenden / leeren Werten in bestimmten Spalten in Excel?
- Wie lösche ich Zeilen, wenn die Zelle in Excel größer / kleiner als ein bestimmter Wert ist?
- Wie lösche ich alle Zeilen außer der ersten Kopfzeile in Excel?
- Wie lösche ich alle Zeilen unter einer bestimmten Zeile oder aktiven Zelle in Excel?
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!