Wie Duplikate löschen, aber halten die erste Instanz und eine leere Zelle für die Duplikate in OpenOffice Calc?

Wenn ich Daten wie:

A          B          C
111        asdews     iujfhg
111        oikufjf    jasddaf
112        eifjfjc    olkdkj
112        eiejdj     olokjjfki
112        ioeiurjf   oleodks
113        oeiekdkd   poldkkmd

Möchte ich löschen Sie alle Duplikate mit Ausnahme der ersten Instanz, aber halten Sie die Zelle leer, für alle weiteren Duplikate. Das erwartete Ergebnis:

A          B          C
111        asdews     iujfhg
           oikufjf    jasddaf
112        eifjfjc    olkdkj
           eiejdj     olokjjfki
           ioeiurjf   oleodks
113        oeiekdkd   poldkkmd

Die einzige Möglichkeit, die ich gefunden habe, die Duplikate löschen im standard ist der filter, wird nur entfernen Sie alle Duplikate. Ich kann das nicht tun, da ich die anderen Spalten wie B und C, die Daten. Der Grund, ich brauche, dies ist durch das Programm, das ich importieren müssen und es überschreibt Sie jede Zeile mit der nächsten, wenn es hat die gleiche ID. Da muss ich Ihnen zum Anhängen an die gleiche ID, überschreiben nicht, ich muss es irgendwie schaffen, diese Aufgabe. Ich habe ungefähr eine million Zeilen in mehreren Dokumenten um dies zu tun, mit so einer schnellen Methode ist vorzuziehen, wenn möglich.

InformationsquelleAutor o_O | 2013-12-27

duplicates openoffice-calc

Dies ist einfach genug, in Excel-VBA. Zugriff auf die VBE-durch drücken von Alt-F11 und legen Sie ein neues Modul. Kopieren und fügen Sie den folgenden code in das Modul und führen Sie es. Sichern Sie Ihre Datei zuerst, bevor Sie dies tun.

Sub RemoveRepeatingStrings()

    Dim BaseStr As String, CurrStr As String
    Dim EndRow As Long

    EndRow = Range("A" & Rows.Count).End(xlUp).Row
    BaseStr = Range("A1").Value

    Application.ScreenUpdating = False

    For Iter = 2 To EndRow
        CurrStr = Range("A" & Iter).Value
        If CurrStr = BaseStr Then
            Range("A" & Iter).Value = vbNullString
        Else
            BaseStr = Range("A" & Iter).Value
        End If
    Next Iter

    Application.ScreenUpdating = True

End Sub

Set-up:

Wie Duplikate löschen, aber halten die erste Instanz und eine leere Zelle für die Duplikate in OpenOffice Calc?