In diesem Beispiel wird die dritte Zeile in Sheet1 gelöscht.
Worksheets("Sheet1").Rows(3).Delete
In diesem Beispiel werden Zeilen im aktuellen Bereich in Tabellenblatt 1 gelöscht, deren erste Zelle jeweils den gleichen Wert hat, wie die erste Zelle der vorherigen Zeile.
For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows this = rw.Cells(1, 1).Value If this = last Then rw.Delete last = this Next
In diesem Beispiel wird die Anzahl der Zeilen in der Markierung in Sheet1 angezeigt. Liegt eine Mehrfachmarkierung vor, werden alle Teile der Mehrfachmarkierung in einer Schleife bearbeitet.
Worksheets("Sheet1").Activate areaCount = Selection.Areas.Count If areaCount <= 1 Then MsgBox "The selection contains " & _ Selection.Rows.Count & " rows." Else i = 1 For Each a In Selection.Areas MsgBox "Area " & i & " of the selection contains " & _ a.Rows.Count & " rows." i = i + 1 Next a End If