重複削除してコピー（AdvancedFilter）｜VBAサンプル集公開日：2013年5月以前 最終更新日：2013-06-04 重複削除してコピー（AdvancedFilter） 重複データを排除して、別シートにコピーする場合です。 以下の表で説明します。 フィルターオプションを使います。 Sub sample1() Worksheets("Sheet1").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Worksheets("Sheet2").Range("A1"), Unique:=True End Sub
