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

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

案例如下：

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

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

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

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

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

具體代碼如下：

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

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

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

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

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

聚米為谷

博學宏才

如果對VBA感興趣

手機端請掃描

電腦端請登錄

www.mihong.top

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

跟著我一步步學習VBA

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

總結

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

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