フィルタオプションを使って、重複したデータを除いて、別シートへ抽出する

例に取り上げたコードでは
　[Sheet1]シートにあるデータを
　[Sheet2]シート―A1～H3セルの設定より
　[Sheet2]シート―A10セルへ重複データを除いて抽出する
といった機能がある

    With Worksheets("Sheet1")
        .Range("A1").CurrentRegion.AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=Sheets("Sheet2").Range("A10"), _
        CriteriaRange:=Sheets("Sheet2").Range("A1:H3"), _
        Unique:=True
    End With

１：.Range("A1").CurrentRegion.AdvancedFilter
　⇒データを取得する範囲
２：Action:=xlFilterCopy
　⇒データをコピーで抜き出す設定
３：CopyToRange:=Sheets("Sheet2").Range("A10")
　⇒抽出したデータを張り付けるセル位置
４：CriteriaRange:=Sheets("Sheet2").Range("A1:H3")
　⇒抽出条件が記された範囲
５：Unique:=True
　⇒重複しているデータは除く