Excel （求助）用VBA自動提取不重復姓名

舉例說明。

例如有表格如圖：

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

第二步：點擊宏，選擇去除重復宏。如圖：

點擊執行，結果如圖：