我想清除（不删除）找到的重复值的最后一个重复单元格（不是行）

Question

我有一个Sorted列，如下所示：

NAMES 阿米特

阿米特

阿米特

杰克

杰克

杰克

杰克

我想清除（不删除）找到的重复值的最后一个重复单元格（非行）。如上例所示，第3个Amit和第4个Jack将从单元格中清除。

问题：我能够找到许多清除重复项的宏/ vba，但没有一个可以保留所有重复项但只清除最后重复值的宏。

可以帮助一些人。

Answer 1

也许这会有所帮助：

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