VBA去重复的几种方法

OKJSJSF

香川群子 发表于 2014-12-12 22:38
别整那么多花里胡哨的方法……都不实用。

VBA去重复只有两种方法：

香川老师好！学生正在练习选择任意矩形列表，单击命令按钮，计算显示不重复行行数，隐藏、筛选、真空等行不计在内。因为不需要导出数据，高级筛选设置麻烦，所以不想用。老版主罗刚君说，如果忽略第一参数，则表示选区的每一列都参与运算，作为判断重复的依据。当以多列作为判断依据时应赋值为数组，当以单列作为判断依据时，赋值为代表列数的数值即可。删除重复项代码第一参数忽略就出错，用数组也不行，用字符串也不行
selection.RemoveDuplicates Columns:=Array(1, 2, 3, 4，，，16000), Header:=xlNo
selection.RemoveDuplicates Columns:=Array(left(str,len(str)-1), Header:=xlNo
selection.RemoveDuplicates Columns:=Arr, Header:=xlNo
selection.RemoveDuplicates Columns:=Array( ), Header:=xlNo
selection.RemoveDuplicates , xlNo
但Array(1, 2, 3, 4)这种多列都参与运算的数组表达式，是怎么个变量赋法呢？这个数组表达式在多条件筛选、透视表及工作表组运用中也有。
它不能写成一列列循环的单列去重复组合，括号内也不是字符串“1, 2, 3, 4”。如果选区80多列或200多列，用户选定的区域不确定，从1写到80多、200多吗？是否非得用多列各行合并后生成一列的方法呢？
我只想知道第一参数如何个忽略法，或者怎么写变量赋给第一参数？请老师教我。

huanquan123

谢谢楼主的帖子，学习了，要是能够将两列提取唯一值放在指定单元格就好了。

自由自在的费

赞，学习了~~~~

tomsxiong

对于我们都要学习，感谢老师们分享

dsduanduan

大神牛皮啊，正在学习中

企鹅先森

留个记号备用，辛苦楼主和大佬们

liouyi631766

香川群子 发表于 2014-12-13 09:47
给你整理个数组循环去重复排序的自定义过程吧，

以后凡是VBA内的一维数组排序，都可以直接拿去用：具 ...

牛b~!~!~!~!~!~!~!

joy.008@163.com

aoe1981 发表于 2014-12-12 22:15
以下是楼主的方法1：感觉与我常用的数组去重是一样的（我是通过两层循环判断比较，重复的清为空值，但是我 ...

• Sub 矩形1_Click()
•     i = Range("A65536").End(xlUp).Row
•     For s = 1 To i
•         For ss = i To s + 1 Step -1
•             If Cells(ss, 1) = Cells(s, 1) Then
•             Cells(ss, 1).Delete shift:=xlUp
•             End If
•         Next ss
•     Next s
• End Sub
• 
  
  

有点不明白 有重复删除行数了以后 I值并没有变化啊 怎么能减少遍历次数呢?

xiaomils

学习了！！

xvjiex

VBA去重复的4种方法。还有其他方法吗？