例如，有如下圖所示的表格:
需要在取出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)
接下來我
末端接頭
第二步:點擊宏並選擇刪除重復的宏。如圖所示:
點擊執行，結果如下圖所示: