Vba：如何删除重复值

可以使用以下方法去除VBA中的重复值：

方法一：根据列去除重复值

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

此特定示例根据范围A1:C11中第一列中的重复值删除范围 A1:C11 中的重复行。

Header:=xlYes参数指定范围中的第一行是标题行，在检查重复项时不应考虑该行。

方法二：根据多列去除重复值

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

此特定示例根据范围A1:C11前两列中的重复值删除范围 A1:C11 中的重复行。

以下示例展示了如何在 Excel 中使用以下数据集来实际使用这些方法：

示例1：根据列去除重复值

我们可以创建以下宏来删除第一列中具有重复值的行：

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，数据集第一列中具有重复值的每一行均已被删除。

示例2：根据多列删除重复值

我们可以创建以下宏来删除前两列中具有重复值的行：

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，数据集前两列中包含重复值的每一行均已被删除。

注意：您可以在此处找到 VBA RemoveDuplicates方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何添加范围内的值
VBA：如何计算范围的平均值
VBA：如何计算范围内的唯一值