批量删除每一列的重复值 | VBA实例教程

除非注明，文章均为 战战如疯 原创，转载请保留链接: http://www./cat4/214.html，VBA交流群273624828。

在贴吧看到一个要批量删除重复项的问题，一看重复项首先想到了字典，后来一想Excel2007不是自带的删除重复项的功能吗，那利用Excel自带的功能实现批量删除各列的重复项应该也是可行的。

原问题是这样的，一个Excel表里有很多很多列，现在我要把每一列都执行去重复的操作，如果手动用Excel2007的去重复功能的话那对每一列都要操作一次。现在解决问题的思路是通过录制宏将单列去重复的代码录制下来，再加个循环即可。录制的过程我就不说了，录制完成后发现程序用的方法是range.RemoveDuplicates，参数Columns代表列数，Header代表是否有头部。对录制的代码改造一下，加个循环，得到的代码如下：

Sub Macro1()
Dim i, j
For i = 1 To [a1].End(xlToRight).Column
ActiveSheet.Range(Cells(1, i), Cells(Cells(1048576, i).End(xlUp).Row, i)).RemoveDuplicates Columns:=1, Header:=xlNo
Next
End Sub

仅仅一个for循环就搞定了，也省去了用字典的麻烦，是不是很简单呢？当然我这是Excel2007的版本，至于在Excel2003中是否适用就请朋友们自己去试下吧。

这个问题太简单，就不上示例文件了。

2

您可能也喜欢：

• 同一列中禁止输入重复值
• 如何找到数据的最后一行或最后一列—End属性
• 一维数组排序-冒泡法
• SQL之删除数据
• SQL查询同一工作簿中工作表内容
• VBA删除和插入空行
• 工作表基本操作-行、列
• SQL向数据库中添加一条新数据

无觅关联推荐[?]