Excel VBA使用高级筛选器的错误副本

Question

Im trying to get a list of unique data through the Advanced Filter option in Excel. So, I recorded the macro I wanted to do and I got this as the code:

Sheets("Totaal").Range("A3:A65000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
    "D2"), Unique:=True

This should be fine as far as I know because I did this a few times. Problem is, with this one, he only copies the first element to the selected Range. (I tried with actually giving it a range but that didn't change anything).

So, only copying first element not the whole array. If I do it manually it works.

Answer 1

Stumbled onto this one, very interesting problem. I created a test sheet to mimic yours that looked like:

The following code dropped all of the unique entries into col D starting at row 2:

Option Explicit
Sub Test()

Dim TotaalSheet As Worksheet

'set worksheet for easy reference
Set TotaalSheet = ThisWorkbook.Worksheets("Totaal")

'apply the advanced filter to get uniques
With TotaalSheet.Range("A3:A65000")
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=TotaalSheet.Range("D2"), Unique:=True
End With

End Sub

Here are the results:

Answer 2

如果范围顶部的许多空单元格之一，则不会复制任何内容。