舉例說明。
例如有表格如圖:
要求將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
第二步:點擊宏,選擇去除重復宏。如圖:
點擊執行,結果如圖: