Wenn Sie mit einer großen Datentabelle arbeiten, ist es nicht ungewöhnlich, dass die Tabelle im Wesentlichen doppelte Informationen enthält. Um die Informationen in der Tabelle zu verarbeiten, möchten Sie möglicherweise alle Zeilen entfernen, die Sie als doppelt betrachten, und so die Menge der zu verarbeitenden Informationen reduzieren.

Nehmen wir zum Beispiel an, dass die erste Zelle jeder Zeile eine Teilenummer enthält. Was ist, wenn Sie Zeilen mit doppelten Teilenummern in der ersten Zelle löschen möchten? Wenn Sie diese Lösung benötigen, ist das folgende Makro für Sie:

Sub DelDupRows()

Dim rngSrc As Range     Dim NumRows As Integer     Dim ThisRow As Integer     Dim ThatRow As Integer     Dim ThisCol As Integer     Dim RightCol As Integer     Dim J As Integer, K As Integer

Application.ScreenUpdating = False     Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)



NumRows = rngSrc.Rows.Count     ThisRow = rngSrc.Row     ThatRow = ThisRow + NumRows - 1     ThisCol = rngSrc.Column     RightCol = ThisCol + rngSrc.Columns.Count - 1

'Start wiping out duplicates     For J = ThisRow To (ThatRow - 1)

If Cells(J, ThisCol) > "" Then             For K = (J + 1) To ThatRow                 If Cells(J, ThisCol) = Cells(K, ThisCol) Then                     Cells(K, ThisCol) = ""

End If             Next K         End If     Next J

'Remove rows with empty key cells     For J = ThatRow To ThisRow Step -1         If Cells(J, ThisCol) = "" Then             Range(Cells(J, ThisCol), _               Cells(J, RightCol)).Delete xlShiftUp         End If     Next J     Application.ScreenUpdating = True End Sub

Das Makro bearbeitet eine Auswahl, die Sie vor dem Aufruf treffen. Wenn Sie also doppelte Zeilen aus dem Bereich D7: G85 entfernen müssen, wählen Sie einfach diesen Bereich aus und führen Sie das Makro aus. Es entfernt die Duplikate aus dem Bereich D7: D85 und entfernt dann alle Zeilen in D7: G85 (vier Spalten pro Zeile), für die die Zelle in Spalte D leer ist.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2108) gilt für Microsoft Excel 97, 2000, 2002 und 2003.