Excel(帮助)自动提取带有VBA的非重复名称

例如，有如下图所示的表格:

需要在取出A列中的名称后删除重复值，然后将它们输出到C列..

第一步:点击开发工具——visual basic。选择sheet1并输入如下代码:

要复制的子名称()

Dim jgArr(1到100)

zz = 0

工作表(“工作表1”)。使活动

set ZD = CreateObject(" scripting . dictionary ")

hh = 2

Do While单元格(hh，1)& lt；& gt""

如果不是zd.exists(单元格(hh，1))。文本)然后

zd。添加单元格(hh，1)。文本，zz

zz = zz + 1

jgArr(zz) =单元格(hh，1)。文本

如果…就会结束

hh = hh + 1

环

输出结果

范围(" c2:c100000 ")。清除内容

对于i = 1到zz

Cells(2 + i - 1，3) = jgArr(i)

接下来我

末端接头

第二步:点击宏并选择删除重复的宏。如图所示:

点击执行，结果如下图所示: