求出Excel中不重復(fù)的人的姓名的VBA代碼

假設(shè)有3張工作表，每張表格的A列都是姓名列，所有這些姓名中有些是重復(fù)的，要求編寫一段代碼，在另一個(gè)工作表上顯示不重復(fù)的姓名。

使用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循環(huán)結(jié)構(gòu)，這種形式是VBA特有的，用于對對象的循環(huán)非常適用。意思是在所有的工作表中依次循環(huán)。

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

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

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

5、For i = 1 To UBound(Arr) ：For…Next循環(huán)結(jié)構(gòu)，從1開始到數(shù)組的最大上限值之間循環(huán)。Ubound是VBA函數(shù)，返回?cái)?shù)組的指定維數(shù)的最大值。

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

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

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