Entfernen doppelter Zellen (Microsoft Excel)
Ich kann Ihnen nicht sagen, wie oft ich Rohdaten von einem Programm oder einer Person erhalten habe, und als erstes muss ich Duplikate aus der Liste entfernen. Wenn Sie sich in derselben Situation befinden, ist das folgende Makro eine große Hilfe:
Sub DelDups() Dim rngSrc As Range Dim NumRows As Integer Dim ThisRow As Integer Dim ThatRow As Integer Dim ThisCol 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 '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 cells that are empty For J = ThatRow To ThisRow Step -1 If Cells(J, ThisCol) = "" Then Cells(J, ThisCol).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 Zellen aus dem Bereich C15: C59 entfernen müssen, wählen Sie einfach diesen Bereich aus und führen Sie das Makro aus. Wenn Sie mehr als eine einzelne Spalte im Bereich auswählen (z. B. C15: E59), ist nur die erste Spalte im Bereich betroffen. Wenn das Makro vollständig ist, werden die doppelten Zellen sowie alle leeren Zellen entfernt.
_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.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (2109) gilt für Microsoft Excel 97, 2000, 2002 und 2003.