Excel VBA中複製唯一值重複的第一個值

Question

我有這個Excel VBA代碼

Sub Module() 

Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True 

End Sub 

我希望它從A列中抓住所有的獨特的價值觀和在列d甩掉他們

但是，值在D1中是重複的。

這是爲什麼？如何解決？

Answer 1

在單元格A1上方插入另一個單元格。在此框中寫上「標題」或任何其他文字。將範圍更改爲A1：A11。這應該可以解決你的問題。

Answer 2

另一種方法，它不需要標題。

Sub Module() 

Application.ScreenUpdating = False 

With Range("A1:A10") 
    .Copy .Offset(, 3) 
    .Offset(, 3).RemoveDuplicates Columns:=1, Header:=xlNo 
End With 

Application.ScreenUpdating = True 

End Sub