我的目標：讓中國的大學生走出校門的那一刻就已經具備這些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這個例子是陣列與字典結合的應用，大家可以練練手。
本節的分享就到這裡，鵬哥祝大家每天都有進步。
聚公尺為谷
博學巨集才
如果對vba感興趣
手機端請掃瞄
電腦端請登入
www.mihong.top
找到《帶你走進vba的世界》
跟著我一步步學習vba
sql server 去重複資料
方法一 select distinct into ttemp from dr task log 將dr task log中不重複的資料插入到臨時表ttemp中 drop table dr task log 刪除原來的表 select into dr task log from ttemp 將ttem...
Hive去重複資料
hive資料去重 insert overwrite table store select t.p key,t.sort word from select p key,sort word row number over distribute by p key sort by sort word as ...
python中的字典應用例項
字典中的鍵使用時必須滿足一下兩個條件 1 每個鍵只能對應乙個項，也就是說，一鍵對應多個值時不允許的 列表 元組和其他字典的容器物件除外 當有鍵發生衝突時 即字典鍵重複賦值 取最後的賦值。myuniversity dict traceback most recent call last file li...