清除重复的Excel宏VBA

Question

我有一个可能包含重复值的列。包含重复项的单元格对应于该行中的数据。我的问题是重复值可能相同，但该行中的相应数据可能不同。因此，如果相应的数据不同，我不能删除重复项。这是我目前的代码，但它将清除不必要的重复。 （替换为零）     

For i = M To 2 Step -1
    Set rlook = Range(Cells(i - 1, "D"), Cells(2, 4))
    If Application.WorksheetFunction.CountIf(rlook, Cells(i, "D")) > 0 Then
        Cells(i, "D").clear
    End If
Next i

我附上了最终结果应该是什么样子的快照。数据将从“A7”开始，直到使用最后一行。最终结果在“G：J”列中。

由于