EXCEL中批量删除每一列的重复值的VBA代码

2016年12月20日17:10:08EXCEL中批量删除每一列的重复值的VBA代码已关闭评论 5,935 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B

在贴吧看到一个要批量删除重复项的问题,一看重复项首先想到了字典,后来一想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循环就搞定了,也省去了用字典的麻烦,是不是很简单呢?

备注;这个只能在office2007以上版本使用