Question

Excel表如何通过VB 获取一列中有哪些不重复的项？

如下某一列有多个数据，有些重复的。在代码中要获取该列中不重复的值。应该如何编码实现？

-----------数据----------- ---想要的数据---
张三 张三
李四 李四
王二 王二
李四
张三
张三
李四

Answer 1

最快，最简单的方法就是用字典
代码及注释如下：
Sub main()
Set dic = CreateObject("scripting.dictionary") '后期绑定字典
arr = Range("A1:A" & Range("A65536").End(3).Row) '将A列非空单元格全部复制给数组arr
For i = 1 To UBound(arr) '循环
dic(arr(i, 1)) = "" '将A列数组全部放到字典中
Next i
[b1].Resize(dic.Count, 1) = Application.Transpose(dic.keys) '将字典中的条目（即A列不重复值）放到B列中
End Sub

Answer 2

假定数据在A列，用如下VBA程序：
Private Sub CommandButton1_Click()
Dim i As Long, k As Long, a$
k = 1
For i = 2 To Range("A65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("A1:A" & k), Range("A" & i).Value) = 0 Then
k = k + 1
Range("A" & k).Value = Range("A" & i).Value
End If
Next i
Range("A" & k + 1 & ":A" & i).ClearContents
End Sub

Answer 3

必须要用VB吗？

Answer 4

用字典就行了~~