Question

Excel （求助）用VBA自动提取不重复姓名

Answer 1

举例说明。

例如有表格如图：

要求将A列姓名取出后去除重复值，然后输出到C列。

第一步：点击开发工具-visual basic。选择sheet1，输入代码如下：

Sub 姓名去重()
Dim jgArr(1 To 100)
zz = 0
Sheets("sheet1").Activate
Set zd = CreateObject("scripting.dictionary")
hh = 2
Do While Cells(hh, 1) <> ""
If Not zd.exists(Cells(hh, 1).Text) Then
zd.Add Cells(hh, 1).Text, zz
zz = zz + 1
jgArr(zz) = Cells(hh, 1).Text
End If
hh = hh + 1
Loop
'输出结果
Range("c2:c100000").ClearContents
For i = 1 To zz
Cells(2 + i - 1, 3) = jgArr(i)
Next i
End Sub

第二步：点击宏，选择去除重复宏。如图：

点击执行，结果如图：

Answer 2

字典功能
Sub 提取不重复的()
Dim d As New Dictionary
Dim arr, x
arr = Range("a2:a12")
For x = 1 To UBound(arr)
d(arr(x, 1)) = ""
Next x
Range("c2").Resize(d.Count) = Application.Transpose(d.Keys)
End Sub