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

自动筛选以复制和粘贴多个唯一值

0 个答案: