操作是將所有數據粘貼到壹列中,然後旋轉表格。
妳上傳壹個附件。
Vba可以通過在表alt+F11中粘貼下面的代碼F5來運行。
“子區域重復數據消除()”字典用法1
Sub?“區域重復數據消除()”詞典用法1
活動工作表有效區域中所有值的重復數據刪除?寫到最後壹欄
暗淡?d,?啊?a
設置?d?=?CreateObject(" scripting . dictionary ")
arr?=?ActiveSheet。使用範圍
開?錯誤?簡歷?然後
為了什麽?每個?答?在?arrive)
如果?不是嗎?d .存在(a)?然後呢?d.Add?壹、?沒有任何東西
然後
單元格(1,?UBound(arr,2)?+?1).調整大小(d.Count)?=?申請。移調(調)
結束?潛水艇