excel篩選重復姓名 求出Excel中不重復的人的姓名的VBA代碼，看到標題你是不是很興奮，這不就是你想學習的知識嗎？當你掌握excel篩選重復姓名這個知識的時候你一定很興奮，一定不會后悔看了excel篩選重復姓名 求出Excel中不重復的人的姓名的VBA代碼這篇文章的，因為你確實把這個問題解決了，不是嗎？

前面的文章我們學習了關于統計重復的姓名的問題，現在，我們反其道而行之，學習一下求出Excel中不重復的人的姓名的VBA代碼。

當然，還是使用VBA中的字典來處理。假設有3張工作表，每張表格的A列都是姓名列，所有這些姓名中有些是重復的，要求編寫一段代碼，在另一個工作表上顯示不重復的姓名。

使用VBA的話，代碼如下：

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

部分代碼解釋：

1、For Each Sht In Sheets ：For Each…Next循環結構，這種形式是VBA特有的，用于對對象的循環非常適用。意思是在所有的工作表中依次循環。

2、If Sht.Name <> "Sheet4" Then ：如果這個工作表的名字不等于”Sheet4”時執行下面的代碼。

3、Myr = Sht.[a65536].End(xlUp).Row ：求得這個工作表A列有數據的最后一行的行數，把它賦給變量Myr。這里用了長整型數據類型(Long)，數據范圍最大可到2,147,483,647，是為了避免數據很多的時候會超出整型數據類型(Integer)而出錯，因為整型數據類型數據范圍最大只到32,767。

4、Arr = Sht.Range("a2:a" & Myr) ：把A列數據賦給數組Arr。

5、For i = 1 To UBound(Arr) ：For…Next循環結構，從1開始到數組的最大上限值之間循環。Ubound是VBA函數，返回數組的指定維數的最大值。

6、d(Arr(i, 1)) = “” ：這句代碼的意思就是把關鍵字Arr(i,1)加入字典，關鍵字對應的項為空，相當于字典中的這個關鍵字沒有解釋。和d.Add Arr(i,1), ""的效果相同，只是代碼更簡潔一些。

7、k=d.keys ：把字典d中存在的所有的關鍵字賦給變量k。得到的是一個一維數組，下限為0，上限為d.Count-1。Keys是字典的方法，前面已經講過了。

8、Sheet4.[a3] .Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的關鍵字賦給表4以a3單元格開始的單元格區域中。