Excel VBA - 删除特定列中的重复值

Question

我有一个包含许多ID行的工作表。

我想知道编写VBA过程的最佳方法，该过程将查看一列中的值范围，并仅使用该范围中出现的唯一值替换整个范围。因此，包含1000个ID的列可能会减少到包含150个唯一ID的列。我不希望这个过程影响工作表中其他列的数据。

所以，说最初的专栏A是：

*IDs*
ID12
ID12
ID34
ID56
ID78
ID78
ID78

我希望用新的A列替换该列：

*IDs*
ID12
ID34
ID56
ID78

谢天谢地。

注意：我知道如何以一些不同的方式手动执行此操作，但我想循环并对工作表上的每个非空列执行此过程，并且列的长度各不相同。

Answer 1

要实现您的目标，请执行以下操作：

1. 选择要删除的整个列。
2. 转到功能区Data > Remove Duplicates。
3. 设置My data has headers（根据您的输入）。

你已经完成了。如果您想在VBA中执行这些步骤 - 在开始之前打开宏录制器（Excel窗口的左下角）。