Gruppe
Allgemein
Problem
Wie kann ich mehrspaltig jeden Eintrag entfernen, der dem in der oberen Zelle entspricht?
StandardModule: basMain
Sub DoppelteLoeschen()
Dim iRow As Integer, iCol As Integer
For iRow = Range("A1").CurrentRegion.Rows.Count To 2 Step -1
For iCol = 1 To Range("A1").CurrentRegion.Columns.Count
If Cells(iRow, iCol) = Cells(iRow - 1, iCol) Then
Cells(iRow, iCol).ClearContents
End If
Next iCol
Next iRow
End Sub