マクロのフィルター機能を使って

マクロのフィルター機能を使って”Unique:=True”、重複するデータから
別のシートに重複しないようにデータを抽出使用としているのですが
シートに書き込んだ際になぜか最初のデータだけが重複データとして残っています。
いろいろ試してみたんですが、よく分かりません。
以下のコマンドが、実際のものです。

Range("A3:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Sheet1").Range("A2"), Unique:=True

データとしては、以下のようなものです。
Ａ
1 項目
2 番号
3 STUG1208
4 STUG1208
5 STUG1208
6 STUG1209
7 STUG1210
8 STUG1207
9 STUG1206
10 STUG1208
11 STUG1202
12 STUG1204

よろしくお願いします。

No.1 ベストアンサー 回答者： end-u 回答日時： 2012/09/04 12:09

AdvancedFilterメソッドの対象範囲には「見出し」も含めて指定します。

抽出後のデータも「見出し」が含まれます。

Sheet1のA1セルにも同じ見出し「番号」があるなら
Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Sheet1").Range("A1"), Unique:=True

なければ、CopyToRangeをA2セルのままにすると、見出し「番号」含めて抽出されます。
その後、見出しが不要なら削除してください。