Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2104|回复: 4

[已解决]删除重复项

[复制链接]
发表于 2017-10-16 08:30 | 显示全部楼层 |阅读模式
附件内要求删除重复项,A列到FD列,各自删除当列的重复项,我把所有列都选了,删除重复项,不行啊,有什么办法可以将这么多列一起删除重复项吗?
最佳答案
2017-10-16 10:01
  1. Sub 宏1() '这个是录制宏
  2.     ActiveSheet.Range("$A$1:$A$231").RemoveDuplicates Columns:=1, Header:=xlYes
  3. End Sub

  4. Sub tt() '用宏套循环,就用这个运行
  5.     Dim col As Integer, i As Integer
  6.     col = ActiveSheet.UsedRange.Columns.Count '共有多少列
  7.     For i = 1 To col '循环去重复
  8.         ActiveSheet.Range(Cells(1, i), Cells(65536, i)).RemoveDuplicates Columns:=1, Header:=xlYes
  9.     Next
  10. End Sub
复制代码

删除重复项问题.rar

80.77 KB, 下载次数: 7

重复项

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-10-16 08:36 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2017-10-16 08:56 | 显示全部楼层
回复

使用道具 举报

发表于 2017-10-16 10:01 | 显示全部楼层    本楼为最佳答案   
  1. Sub 宏1() '这个是录制宏
  2.     ActiveSheet.Range("$A$1:$A$231").RemoveDuplicates Columns:=1, Header:=xlYes
  3. End Sub

  4. Sub tt() '用宏套循环,就用这个运行
  5.     Dim col As Integer, i As Integer
  6.     col = ActiveSheet.UsedRange.Columns.Count '共有多少列
  7.     For i = 1 To col '循环去重复
  8.         ActiveSheet.Range(Cells(1, i), Cells(65536, i)).RemoveDuplicates Columns:=1, Header:=xlYes
  9.     Next
  10. End Sub
复制代码

回复

使用道具 举报

 楼主| 发表于 2017-10-16 10:12 | 显示全部楼层
真是太高大上了,不懂,不过照你的方法搞,可以搞定啊!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:37 , Processed in 0.570680 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表