VBA：不同sheet不重覆資料

　
Sub Usage6_2()

'來源：http://club.excelhome.net/viewthread.php?tid=265056&extra=&highlight=%C7%B3%CC%B8&page=2

'功能：sheet1 的 A 欄有重覆資料，
'　　　執行後將不重覆資料列於 sheet2 的 D欄。

'Application.ScreenUpdating = False
Dim r As Range, arr

Worksheets("All").Select
　　　With CreateObject("scripting.dictionary")
　　　　　　For Each r In Range("A1:A" & Range("A65536").End(xlUp).Row)
　　　　　　　　If Not .exists(r.Value) Then .Add r.Value, Nothing
　　　　　　Next

Worksheets("temp").Select
'Cells.Clear
Range("a1").Resize(.Count, 1) = WorksheetFunction.Transpose(.keys)
End With
'Application.ScreenUpdating = True
End Sub