我的目標：讓中國的大學生走出校門的那一刻就已經(jīng)具備這些office技能，讓職場人士能高效使用office為其服務。支持我，也為自己加油！

前面兩節(jié)課中的去重復，不論是單張表里的去重復還是多張表里的去重復，需要去重復的數(shù)據(jù)都在一列，如果一個區(qū)域內有很多行數(shù)據(jù)，每行都需要去重復，該怎么辦呢？

案例如下：

上圖中上面部分的數(shù)據(jù)，每行姓名都有重復的，現(xiàn)在要求每行中重復的姓名只保留一個，如果肉眼挑，數(shù)據(jù)多的話那是超級費勁的。

有的同學可能會想到，數(shù)據(jù)選項里有刪除重復項，刪除重復項只能針對一列數(shù)據(jù)，所以要先要把每行數(shù)據(jù)轉置成列，刪除重復項，然后再轉置。

當然我們可以把原始數(shù)據(jù)集體轉置后，逐列刪除重復項，然后再轉置，如下：

條條大道通羅馬，怕的是一條道都找不到！

下面我們看下用字典如何實現(xiàn)每行去重復的效果呢？

具體代碼如下：

Sub 去重復() Dim arr1, arr2(1 To 17), i%, m%, d As Object arr1 = Range("b2:r7") Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(arr1) For m = 1 To UBound(arr1, 2) arr2(m) = arr1(i, m) d(arr2(m)) = "" Next Cells(i + 8, 2).Resize(1, d.Count) = d.keys d.RemoveAll NextEnd Sub

向右滑動可以查看完整代碼

上面的循環(huán)類似與九九乘法表中的循環(huán)，FOR循環(huán)中嵌套FOR循環(huán)，先循環(huán)某一行，然后循環(huán)該行的所有列，這樣就可以循環(huán)完整個區(qū)域的數(shù)據(jù)。

這個例子是數(shù)組與字典結合的應用，大家可以練練手。

本節(jié)的分享就到這里，鵬哥祝大家每天都有進步。

聚米為谷

博學宏才

如果對VBA感興趣

手機端請掃描

電腦端請登錄

www.mihong.top

找到《帶你走進VBA的世界》

跟著我一步步學習VBA

您點的每個贊，我都認真當成了喜歡

總結

以上是生活随笔為你收集整理的数据去重复_字典应用实例（每行每列都要去重复值）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。