例如，有如下圖所示的表格:
需要在取出A列中的名稱後刪除重復值，然後將它們輸出到C列..
步驟1:單擊開發工具-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）
接下來我
末端接頭
步驟2:單擊宏並選擇刪除重復的宏。如圖所示:
點擊執行，結果如下圖所示: