Vba 错误-excel中存在重复项

我正在尝试删除excel中的重复项，并成功地做到了这一点。在运行代码后，我的电子表格中有一些空白，这正是我需要帮助的地方。以下是全部解释：

1我将两个不同文件中的记录复制到一个单独的文件中，并有17列a到R。 2我查找重复项并删除。 3删除重复项后，最后一条记录和第二条最后一条记录之间出现3个空行。附图

---

在您的示例中，我只看到J列。我猜测单元R18是空的，所以.Enter将不会选择最后一行，但Q18中有一些。

您现在要删除空白行吗？还是别的？@RalphJ当我在范围中使用Q而不是R时，R列的条目比其他列多，这是可以理解的，但是在这两个列之间没有空行。当我使用R作为范围（我希望是范围）时，空行只会出现。那么，您是否认为需要删除的只是空行？谢谢。对不起，你的评论并没有完全澄清你的问题。你能试着进一步解释一下吗？@Tom当我设置rng=RangeA2，RangeR2.EndxlDown时，在last和second last之间有空白记录，但当我使用Set rng=RangeA2，RangeQ2.EndxlDown时，没有空行，只是在R列中有更多的值，因为我在第二个代码中没有使用R。当我选择RangeR2.EndxlDown作为范围时，为什么相同的逻辑不起作用。希望你得到这个，否则我可以正确地编辑它。谢谢

With y.Sheets("RL Holdings").Activate
    Set rng = Range("A2", Range("R2").End(xlDown))
    rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End With