举例说明。

例如有表格如图：

要求将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

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

点击执行，结果如图：