[說明]
當想比對某欄的資料是否重複，若有重複則自動刪除後並排序。
[程式碼]
Sub JS() '比對重複的資料並刪除
For x = 2 To 20 '主資料，「x」只是一個代碼，可自由命名。
For y = x + 1 To 20 '被比對的資料，「y」只是一個代碼，可自由命名。
a = "a" & x '設定會隨X變動的儲存格位置代號。
b = "a" & y '設定會隨Y變動的儲存格位置代號。
If Range(a) = Range(b) Then '如果主資料等於被比對的資料。
Range(b) = "" '被比對的資料等於空白。
Else '如果不是。
End If '不做任何動作結束IF。
Next y '跳下一個Y，此時被比對的資料就會往下跳一格。
Next x '跳下一個X，此時會跳下一個主資料跟其他被比對的資料進行比對。
Range("a:a").Select '選取A欄，這資料範圍會依使用者的資料而異。
Selection.Sort key1:=Range("a2"), Header:=xlYes '進行排序
End Sub
[特別說明]
「key1:=Range("a2")」是指定Range("a")作為排序的依據，依使用者的資料會有所調整。
「Header:=xlYes」是指要被排序的資料內是否含還有表頭，這是依使用者所選取的資料範圍而異，本範例是選取A欄做排序，故所選取的範圍內是含到表頭的，故設定成「xlYes」，反之則可設定為「xlNo」。
文章標籤
全站熱搜
留言列表
