VBA：移除重複(RemoveDuplicates)

                          

MSDN：RemoveDuplicates 

N = Sheets("SHEET1").Range("A" & "65536").End(xlUp).Row

Dim myRange As Range

 Set myRange = Sheets("SHEET1").Range("A1:o" & N)

 myRange.RemoveDuplicates Columns:=Array(1), Header:=xlYes

設定好儲存格範圍(Set myRange)，就可以執行了，另外兩個參數如下：

Columns：Array(1)，A到O行的A行當重複判斷基準。

Header：xlYes，有標題