相关文章推荐
勤奋的充电器  ·  如何在Excel ...·  1 月前    · 
温柔的小蝌蚪  ·  CEdit 类 | Microsoft Learn·  10 月前    · 
含蓄的鞭炮  ·  Neo4j ...·  2 年前    · 
耍酷的爆米花  ·  docker compose 端口 ...·  2 年前    · 

举例说明。

例如有表格如图:

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

第二步:点击宏,选择去除重复宏。如图:

点击执行,结果如图: