excel - 使用 VBA 删除重复项不再起作用

Question

我在下面使用了几天，它工作得很好，今天早上突然我得到“应用程序定义的 r 对象定义的错误”我正在尝试使用“分配”选项卡中的第一列删除重复项。如果重要，数据就在表格中。但再次奇怪的是，前几天它工作得很好，我不相信有任何改变。

Worksheets("Assignments").Activate

ActiveSheet.UsedRange.RemoveDuplicates Columns:=1, Header:=xlYes

Answer 1

如果我在工作表上有一个表格并且在表格之外有数据，我可以重现该问题。我在 A1:C4 中放了一个表格，然后用数据填充单元格 G15。当我运行 RemoveDuplicates 时，我得到了应用程序定义的错误。我想这意味着您不能删除包含表格的范围上的重复项，除非范围和表格完全相同。
如果我有特定的理由，我通常只使用 UsedRange，因为它有点不可靠。它永远不会比你需要的小，但有时它会更大。如果您想删除表上的欺骗，请显式调用该表的范围。

ActiveSheet.ListObjects("MyTable").Range.RemoveDuplicates 1, xlYes