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

在贴吧看到一个要批量删除重复项的问题，一看重复项首先想到了字典，后来一想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以上版本使用