VBA删除重复项|如何在Excel VBA中删除重复的值?
VBA Excel中的RemoveDuplicates
在excel中,通常不需要重复值,尤其是当您想让唯一值计数时。通常,我们需要处理一组不同的数据,并且在其中看到了一堆重复的值。
希望您熟悉在excel工作表中删除重复项的情况,如果您不必担心,我们将为您提供一个简单的示例。在VBA中,我们也可以执行删除重复项的方法。
因此,它删除了“区域”标题的所有重复值。同样,我们可以在VBA代码的帮助下完成此任务。
如何在VBA编码中删除重复的值?
为了先删除重复的值,我们需要提及我们所指的范围,然后我们可以访问“删除重复的”方法。因此语法如下。
[柱子]: 我们需要删除选择的哪一列重复项?我们需要提及所选范围的列号。
[标题]: 您选择的范围是否包含标题。我们在这里可以使用三个选项。
- 是: 如果数据具有标题,则可以选择它。
- xlNo: 如果数据没有标题,则可以选择它。
- xlGuess: 此选项将允许excel猜测数据的标头。
因此,使用这些参数,我们只需单击一下按钮就可以删除重复项,而不会费力。
在下面的部分中,我将向您展示一些VBA删除重复项的示例。仔细按照以下步骤自行编写代码。
在VBA编码中删除重复值的示例
以下是在值VBA中删除重复项的示例。
VBA Removeduplicates –示例#1
还要考虑此示例的以下数据。
从以上数据中,我们需要删除“ Region”列中的重复项,因此请按照以下步骤编写代码。
步骤1: 通过给宏代码起一个名字来启动子过程。
第2步: 使用VBA提及数据范围 范围对象.
代码:
Sub Remove_Duplicates_Example1()范围(“ A1:C9”)。结束子
第三步: 提到范围访问VBA之后删除重复项“ 方法。
代码:
Sub Remove_Duplicates_Example1()Range(“ A1:C9”)。RemoveDuplicates End Sub
第4步: 我们需要删除哪一列中的重复值的第一个参数。在此示例的第一列中,我们需要删除重复项。
代码:
子Remove_Duplicates_Example1()范围(“ A1:C9”)。RemoveDuplicates列:= 1,结束子
步骤5: 接下来的事情是数据是否具有标题。在这种情况下,我们有标题,因此选择 “ xlYes”。
代码:
Sub Remove_Duplicates_Example1()Range(“ A1:C9”)。RemoveDuplicates列:= 1,标题:= xlYes End Sub
运行此代码,它将使VBA从选定区域中删除重复项。
这是引用单元格范围的明确方法。如果您希望自己选择范围,然后删除重复项,则需要使用该变量。在下面的示例中,我将向您展示如何在VBA中使用变量。
VBA Removeduplicates –示例2
在上面的示例中,我们专门提供了单元格范围。现在,我们将看到如何处理自己的单元格。
例如,我有几组数据,如下图所示。
每次我无法明确指定单元格的范围时,因此我们将选择范围指定为该范围。
步骤1: 声明变量 作为范围.
代码:
Sub Remove_Duplicates_Example2()调暗范围作为范围结束
第2步: 范围是我们将要追求的目标 设定范围 作为我们的选择。
代码:
Sub Remove_Duplicates_Example2()Dim Rng作为范围集Rng =选择结束Sub
第三步: 现在,我们可以使用变量“ng”.
代码:
Sub Remove_Duplicates_Example2()Dim Rng作为范围集Rng =选择Rng.RemoveDuplicates列:= 1,标题:= xlYes End Sub
在运行代码之前,我们需要首先选择单元格范围,然后才能从选定的单元格范围中删除重复项。
VBA从多个列中删除重复项–示例#3
我们还可以使用VBA从excel列中删除重复的值。为了删除多个列,我们需要使用Array并提及列号。
例如,查看示例数据映像。
我们在第一列和第四列中都有重复的值。因此,我们将从这些列中删除。使用以下代码将VBA删除重复项。
代码:
Sub Remove_Duplicates_Example3()Dim Rng作为范围集Rng = Range(“ A1:D9”)Rng.RemoveDuplicates列:= Array(1,4),标题:= xlYes End Sub
您可以在此处下载此VBA删除重复Excel。 VBA删除重复Excel模板