|
雖然說Excel2013中可以處理重復(fù)值，但是用宏來的更快。鑒于很多人都不懂代碼，我就向大家提供代碼，用于求出表格中不重復(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)建，下次使用的時候直接打開宏，按F5執(zhí)行即可。  ⑤有必要說明一下，Sheet4.[a3] .Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的關(guān)鍵字賦給表4以a3單元格開始的單元格區(qū)域中。 |
|
|
