excelでAdvancedFilterを使って重複データを削除したい。

初心者質問で申し訳ありません。
重複データを削除したいんですが、調べたところ
AdvancedFilterを使って・・・とのことでした。

Sheets("コピー元sheet").Range("範囲").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("コピー先sheet名 ").Range("範囲"), _
Unique:=True

ということは分かったのですが、「どの項目の重複
を削除したいのか？」というのはどこで指定するのでしょうか・・・。(例：B列の「部署」という項目の列で重複している部署があったらデータを削除したい・・・等）
例文が見苦しかったらごめんなさい!!!

No.1 ベストアンサー 回答者： nishi6 回答日時： 2004/01/28 02:45

Sheets("コピー元sheet").Range("範囲").AdvancedFilter _

　　Action:=xlFilterCopy, _
　　CopyToRange:=Sheets("コピー先sheet名 ").Range("範囲"), _
　　Unique:=True

　　　↓

Sheets("コピー元sheet").Range("範囲").AdvancedFilter _
　　Action:=xlFilterCopy, _
　　CriteriaRange:=Columns("B:B"), _
　　CopyToRange:=Sheets("コピー先sheet名 ").Range("範囲"), _
　　Unique:=True

でしょうか。

データを削除するというよりも、重複をさせないで、別シートに書き出している処理でしょう。

この回答へのお礼

返事が遅くなり大変失礼いたしました！
大変参考になりました！ありがとうございます。

お礼日時：2004/02/19 23:52