當前位置:成語大全網 - 新華字典 - Excel (求助)用VBA自動提取不重復姓名

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

第二步:點擊宏,選擇去除重復宏。如圖:

點擊執行,結果如圖: