转：excel取唯一值的VBA代码

winony

excel取唯一值的VBA代码

Sub 取唯一值()
Dim i As Range
Dim n As Long
n = 1
For Each i In Range("a1:a100")
If Application.WorksheetFunction.CountIf(Range("$A$1:" & i.Address), i) = 1 Then
Cells(n, 2) = i
n = n + 1
End If
Next
End Sub


参照：http://www.ittribalwo.com/article/1473.html

winony

当数据量特别大的时候，用VBA的方法是最省内存的啦。。。转来自用

jack5d

用字典会比循環快吧

百度不到去谷歌

这么坑的代码  别害人了 用字典法取唯一值比较快一点
Sub 区域去重()    '字典用法一
'区域所有数值去重 写入到最后一列
    Dim d, arr, a
    Set d = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange
    On Error Resume Next
    For Each a In arr
        If Not d.Exists(a) Then d.Add a, Nothing
    Next
    Cells(1, ActiveSheet.UsedRange.columns.count) + 1).Resize(d.Count) = Application.Transpose(d.keys)
End Sub

lucasmnp

百度不到去谷歌 发表于 2014-9-4 20:46
这么坑的代码  别害人了 用字典法取唯一值比较快一点
Sub 区域去重()    '字典用法一
'区域所有数值去重  ...

Cells(1, ActiveSheet.UsedRange.columns.count) + 1).Resize(d.Count) = Application.Transpose(d.keys)
前辈，这句有点问题，运行不了

jy03342543

用字典来过滤重复值比较好 用单元格循环一但数据量大会很卡。