excel宏将行与下一行进行比较，并用空白替换重复的行

Question

图像： http://webserv-me.com/x.png

您好， 我有一个包含7000行的Excel工作表，我想在Excel 2007中使用VBA脚本来搜索选定的列并将该行与下一行进行比较（如果有任何重复的行）已经发现，它应该保留原文并删除重复的IE：如果我们有4个重复它应该删除3并保留一个，也与下一个单元格的比较而不是整个列 这张图片将描述我需要的东西， 我找到了这段代码但是行和整列之间的比较，所以它给了我一个错误的结果。 http://www.teachexcel.com/free-excel-macros/m-23,delete-duplicate-rows-in-excel.html

感谢

Answer 1

如果我们从这开始：

并运行这个微小的宏：

Sub DeDup()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = N To 2 Step -1
        If Cells(i, "A").Value = Cells(i - 1, "A").Value Then Cells(i, "A").Clear
    Next i
End Sub

我们会得到这个：

Answer 2

选择感兴趣的范围。 单击“数据”功能区上的“删除重复项”工具。 选择对话框中的选项以满足您的特定需求。 单击“确定”。