怎么用宏來求出Excel2013中不重復(fù)人名

　　Excel2013中有很多可以處理重復(fù)值，其中用宏來的最快，代價(jià)當(dāng)然也是最復(fù)雜的了。鑒于很多人都不懂代碼，小編就向大家提供代碼，用于求出表格中不重復(fù)的人名。

　　用宏來求出Excel2013中不重復(fù)人名的步驟：

　　①打開Excel2013，在A列中輸入人名，如下圖所示。

　　②然后按下快捷鍵ALT+F11鍵，調(diào)出代碼編輯器，新建模塊。

　　③將下列代碼復(fù)制進(jìn)去:

　　Dim i&, Myr&, Arr

　　Dim d, k, t, Sht As Worksheet

　　Set d = CreateObject("Scripting.Dictionary")

　　For Each Sht In Sheets

　　If Sht.Name <> "Sheet4" Then

　　Myr = Sht.[a65536].End(xlUp).Row

　　Arr = Sht.Range("a2:a" & Myr)

　　For i = 1 To UBound(Arr)

　　d(Arr(i, 1)) = ""

　　Next

　　End If

　　Next

　　k = d.keys

　　Sheet4.[a3].Resize(d.Count, 1) = Application.Transpose(k)

　　Set d = Nothing

　　④然后為宏命名，創(chuàng)建，下次使用的時(shí)候直接打開宏，按F5執(zhí)行即可。

　　⑤有必要說明一下，Sheet4.[a3] .Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的關(guān)鍵字賦給表4以a3單元格開始的單元格區(qū)域中。