0

我正在尝试使用 VBA 过滤 Excel 表以获取 unqiue 值。我首先过滤特定日期，然后尝试在 columns和L中获取唯一值。下面详述的方法仅适用于 L 列。当我复制和粘贴 H 和 Q 列的唯一值时，它不会从这些列中获取过滤器值，而是从这些列中获取所有未过滤的值。任何指针将不胜感激。HQ

  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
4

0 回答 0