另外关于删除重复值的处理问题

roc.jame

关于删除重复值的处理问题：
1、易用宝的删除重复值项窗口运行时始终显示在桌面上，就算最小化Excel仍然会出现，这是个非常细节的问题，建议将窗口显示代码修改一下，不要占用用户界面。

2、删除重复值如果用户选中的是整个工作表呢？不知是否考虑过？那么用户要的是整个表的重复值的话？目前代码无法实现这一功能。目前的代码实现的仅仅是每一列的重复值，当选中多列后，运行多次仍会显示不正确结果。建议多多测试！






个人认为代码的设计应该人性化一些。


该贴已经同步到 roc.jame的微博

roc.jame

无人回复？那算了

zhaogang1960

第一个问题等taller版主回答吧

第二个问题
1、选择了整个工作表有待处理，应该是选择区域和当前工作表已经使用区域的交叉区域：Intersect(Selection, ActiveSheet.UsedRange)
2、删除重复项其实就是删除重复行，不是删除重复单元格。如果选择了一列，则按一列为条件判断有无重复，选择多列就把选择列连接起来判断

roc.jame

zhaogang1960 发表于 2012-7-22 18:41
第一个问题等taller版主回答吧

第二个问题

可是效果如上图哦，呵呵

胡剑0227

roc.jame 发表于 2012-7-23 09:25
可是效果如上图哦，呵呵

楼主好，你的图我看了下，第一是通过【保留首项】来删除重复项是吧。这里的重复项是以行（每一条记录）为单位的，我想按这么理解应该是符合期望的。

第二，在剩余的单独行中执行了【删除所有】的方式来删除重复项，因为是以行为单位来检索重复项的，所以程序回复“没有重复项”这个也是可以理解的。
我个人感觉可能重复项这个概念可能和重复的数据有点混淆造成的
==================================================================
另外每按一次【确定】就直接执行程序了。