Doppelte Werte eleminieren UND entstandene Leerzellen mit anderen Werten aus der Zeile auffüllen

Computer: Software & Programmierung Office Software
#1

Hallo Experten!
Spalten A bis F
Zeilen ca. 1000
In allen oder in Teilen der Spalten stehen in jeder Zeile Werte, die sich oft wiederholen (nicht immer sind alle 5 Spalten mit Werten gefüllt). Die Wiederholungen sollen raus (das wäre ja noch zu lösen). ABER die Spalten müssen ggf. nach vorne aufgefüllt werden.
Beispiel der Werte einer Zeile bei den 5 Spalten:
A A A C 23
Der Wert A sollen nur in der 1. Spalte stehen, und der Wert C aus der 4. Spalte soll in die 2. Spalte kommen (wo vorher A stand) und der Wert 23 der 5. Spalte in die 3. Spalte. Am Ende soll das ausschauen:
A C 23 (also nur die ersten 3 Spalten gefüllt)
Das Muster könnte aber auch so aussehen:
A C A 23 A
auch hier sollte das Ergebnis dann A C 23 sein oder auch C A 23, egal.
Die Reihenfolge der Werte ist egal. Es sollen eben in jeder Zeile keine Dopplungen vorkommen in die Spalten müssen von vorne lückenlos gefüllt sein.
Ich hoffe, ich habe es gut erklärt.
Schon vielen Dank!

#2

Hallo Karl

Das folgende Makro entfernt in den Spalten A:F in jeder Zeile alle Einträge, die mehr als einmal vorkommen.

Bei mir klappt’s. Ich hoffe, bei Dir auch.
Grüsse Niclaus

Sub DuplEntfernen()
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
    For zb = 1 To lz  ' zb: benutzte Zeilen in Spalte A
        For rep = 1 To 6
            i = 0
            While i < 6
                For sp = 2 To 6
                If sp <= rep Then sp = rep + 1
                    If Cells(zb, sp) = Cells(zb, rep) Then
                        If sp = 6 Then
                            Cells(zb, sp) = " "
                        Else
                            Cells(zb, sp) = Cells(zb, sp + 1)
                        End If
                    End If
                Next sp
                i = i + 1
            Wend
        Next rep
    Next zb
End Sub
#3

Einfach genial. Vielen Dank Niclaus!
Viele Grüße schickt Dir Karl