宏将不同的值从一个 Excel 表复制到另一个 Excel 表

Question

我有一个 Excel 工作簿，其中包含以下工作表“Main”和“Count”：现在“Main”工作表包含带有 ID 列表的 B 列。

是否可以在“计数”页面上使用宏来从主表中的 B 列复制 A 列中的所有不同值？

我知道索引功能和高级过滤器可以起作用，但我特别需要一个简单的宏。

Answer 1

尝试这个：

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Main")
    Set s2 = Sheets("Count")
    s1.Range("B:B").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub