VBA去重复的几种方法

xvjiex

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

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

函数非常好，不排序去重复该怎么使用？

xiaomils

收藏了，感谢！！

zhn6914

aoe1981 发表于 2014-12-12 22:22
楼主方法四：咋一看，吓一跳，如此简洁，赶紧F1，才稍稍明白了些真相：
“Excel 开发人员参考
Range.Rem ...

老师太厉害了！现在研究的是单列去重，我想要的是多列去重(把sheet1！b2:z100,有表头，去重到sheet2，显示在b列，从b2开始）
能帮助编写代码吗？

路的这一边

学习了，感觉需要学的内容太多了

今日123

Sub 去重()
Dim i&, Myr&, Arr
Dim d, k, t, Sht As Worksheet
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
    Myr = .[a65536].End(xlUp).Row
    Arr = .Range("a1:a" & Myr)
    For i = 1 To UBound(Arr)
        d(Arr(i, 1)) = ""
    Next
    k = d.keys
    .[a1].CurrentRegion.ClearContents
    .[a1].Resize(d.Count, 1) = Application.Transpose(k)
End With
Set d = Nothing
End Sub

asrong

非常感谢，我先试试。

Luc0224

Sub 去重()

Dim i%, j%, js%, endrow, flag As Boolean

js = 1
endrow = Cells(Rows.Count, "f").End(xlUp).Row

For i = 2 To endrow
flag = True
For j = 1 To js
If Cells(i, "f") = Cells(j, "g") Then
flag = flag * 0
Else
flag = flag * 1
End If
Next

If flag = True Then
js = js + 1
Cells(js, "g") = Cells(i, "f")
End If
Next

End Sub

gwjkkkkk

学习一下，收藏。。。

硅谷少年

xunijyj 发表于 2017-3-31 12:11
最后一种为何如此简洁，神奇？

因为调用的excel自带的删除重复项功能

硅谷少年

dcgg 发表于 2017-6-22 10:33
如何加入多条件

excel2007及以上版本，有删除重复项功能，自己录制个宏看下就ok了