Ich möge Clear (nicht löschen) die Last Doppelten Zelle (nicht ROW) für die doppelten Werte gefunden

Question

Ich habe eine sortierte Spalte wie unter:

NAMES Amit

Amit

Amit

Jack

Jack

Jack

Jack

ich löschen mag (nicht löschen) die Last Doppelten Zelle (nicht Zeile) für die doppelten Werte found.Like in obigem Beispiel 3.en Amit und 4. Jack wird von der Zelle gelöscht werden .

Problem: Ich bin in der Lage, viele Makros/vba zu finden, die Duplikate löschen, aber keine, die alle Duplikate behalten, aber nur die letzten Duplikate löschen.

Kann jemand helfen.

Answer 1

Vielleicht würde das helfen:

For Each cell In Application.Intersect(InsertNameOfTableHere.UsedRange.Offset(1, 0), InsertNameOfTableHere.Columns(1)) 
    If cell = cell.Offset(-1, 0) And cell <> cell.Offset(1, 0) Then 
     cell.Value = "" 
    End If 
Next