将在公用文本中选择非的vba

我知道如何构建循环宏来读取某列中的所有行，但我不知道如何编写循环宏，这样它将选择不常见的数据，并且听起来可能不正确，因此这里有一个示例：

column A
1
1
1
1
2
2
2
2
3
3
3

我想要的是循环查看列A，但只查看新数据的第一行，所以它看起来像这样

Column A
1
2
3

谢谢，

尝试一下：

Sub Macro1()
    Dim A As Range
    Set A = Range(Range("A1"), Range("A" & Cells(Rows.Count, "A").End(xlUp).Row))
    A.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

编辑#1:

这将首先复制到另一张图纸，然后删除副本中的重复项：

Sub Macro1()
    Dim A As Range, B As Range
    Set A = Range(Range("A1"), Range("A" & Cells(Rows.Count, "A").End(xlUp).Row))
    Set B = Sheets("Sheet2").Range("A1:A" & A.Rows.Count)
    A.Copy B
    B.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

---

你想让宏只删除重复的值，只留下第一个实例吗？你想编写一个“删除重复”函数吗？我想让它选择并复制数据，然后粘贴到另一个工作表上，所以选择1，然后选择2，然后选择3，再过去到另一个工作表上的另一列。不需要宏，使用高级筛选功能复制唯一值我希望它选择并复制数据，并将其粘贴到另一张工作表中，因此选择1，然后选择2，然后选择3，并通过另一张工作表上的另一列。