excel - 複数の一意の値をコピーして貼り付けるためのオートフィルター

Question

一意の値に対して VBA を使用して Excel テーブルをフィルター処理しようとしています。L最初に特定の日付をフィルター処理してから、列、Hおよびで一意の値を取得しようとしますQ。以下に詳述する私のアプローチは、列 L に対してのみ適切に機能します。列 H と Q の一意の値をコピーして貼り付けると、それらの列からフィルター値が取得されるのではなく、それらの列のフィルター処理されていないすべての値が取得されます。任意のポインタをいただければ幸いです。

  With ActiveSheet.Range("Reconcile_Data")
        .AutoFilter Field:=9, Criteria2:=Array(2, Format(var1(i, 1), "yyyy-mm-dd")), Operator:=xlFilterValues
        Range("L:L").SpecialCells(xlCellTypeConstants).Resize(, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Uniques").Range("B1"), Unique:=True
    End With
    With ActiveSheet.Range("Reconcile_Data")
        .AutoFilter Field:=9, Criteria2:=Array(2, Format(var1(i, 1), "yyyy-mm-dd")), Operator:=xlFilterValues
        Range("H:H").SpecialCells(xlCellTypeConstants).Resize(, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Uniques").Range("C1"), Unique:=True
    End With
    With ActiveSheet.Range("Reconcile_Data")
        .AutoFilter Field:=9, Criteria2:=Array(2, Format(var1(i, 1), "yyyy-mm-dd")), Operator:=xlFilterValues
        Range("Q:Q").SpecialCells(xlCellTypeConstants).Resize(, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Uniques").Range("D1"), Unique:=True
    End With