VBA RemoveDuplicates方法去重复项

最新推荐文章于 2023-02-11 11:06:08 发布

weixin_34044273

最新推荐文章于 2023-02-11 11:06:08 发布

阅读量2.2k

点赞数 1

原文链接：http://www.cnblogs.com/onelikeone/p/10204443.html

版权

本文详细介绍了VBA中RemoveDuplicates方法的用法，包括如何根据特定列去重复项，忽略大小写，以及Header参数的设置。通过多个实例展示了不同参数配置下的去重效果，如仅根据第1列、第2列或第1和2列去重，并对比了Header参数为xlYes、xlNo和xlGuess时的不同结果。

摘要由CSDN通过智能技术生成

RemoveDuplicates后边必须跟参数否则不起作用

ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes

其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，如果是2则只有1,2两列均重复的行才会被删除，以此类推，你的区域12列，那么只有12列均重复的行会被删除。

如果想在12列中只根据某几列的重复来删除，比如，1 3 7列。那么参数写为Columns:=Array(1,3,7)

案例介绍：

1. 仅根据第1列重复项删除整行

源表：黄色标记的都是重复项

VBA语句：

Option Explicit
Option Compare Text
Sub 去重()
    Dim sSheet As Worksheet
    Set sSheet = ActiveSheet
    sSheet.Range("A1:H25").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

或：个人推荐下面这种写法

Option Explicit
Option Compare Text
Sub 去重()
    Dim sSheet As Worksheet
    Set sSheet = ActiveSheet
    sSheet.Range("A1:A25").EntireRow.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

运行后：