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

Question

我有一个 Excel 工作簿，其中包含以下工作表，“主要”和“计数”：现在，“主要”工作表的 B 列包含 ID 列表。

是否可以在“计数”页面上使用宏从主表中的 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