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

2016年12月20日17:10:08 评论 5,002 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 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以上版本使用

  • 郑广学老师微信号
  • EXCEL880B
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页