Löschen Sie Zeilen in verschiedenen Blättern über VBA

Wenn Sie alle ähnlichen Zeilennummern auf einmal löschen möchten, ist dieser Artikel genau das Richtige für Sie.

In diesem Artikel erfahren Sie, wie wir mithilfe von Makros dieselbe Zeile in mehreren Arbeitsblättern entfernen können.

Frage): Ich möchte dieselbe Zeile in mehreren Arbeitsblättern mit VBA-Code löschen. Ich möchte, dass Code alle Zeilen in der Arbeitsmappe löscht, unabhängig davon, wie viele Blätter in der aktuellen Datei vorhanden sind. Ich möchte die ausgewählte Zeilennummer aus allen 5 Blättern löschen.

Geben wir zunächst die ähnlichen Daten in alle Arbeitsblätter an derselben Stelle ein

Wir müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler
Wählen Sie aus der Gruppe Code die Option Visual Basic

Geben Sie im Standardmodul folgenden Code ein:-

Unter DeleteRows()

Dim shtArr, i As Long, xx As Long

shtArr = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")

xx = Auswahl.Reihe

Für i = LBound(shtArr) Zu UBound(shtArr)

Sheets(shtArr(i)).Rows(xx).EntireRow.Delete

Als nächstes

End Sub

Platzieren Sie nun den Cursor auf eine beliebige Zelle A1 und auf Sheet1.
Drücken Sie ALT + F8 um das Makro auszuführen; Sie werden feststellen, dass die ausgewählte Zeilennummer in allen Blättern gelöscht wird.
Der folgende Snapshot zeigt die Daten von Blatt 1 und Blatt 2 als Beispiel; Wenn Sie diese Übung ausführen, finden Sie in allen entsprechenden Blättern eine ähnliche Lösung.