VBA宏脚本：使用VBA宏查找工作表1中列中的唯一值并将其复制到工作表2中

我在同一工作簿中有两张工作表。工作表A称为“表1”，工作表B称为“表2”。从第1页的A列可以看到多达176080条重复ID号的记录。需要从该列中找到唯一的ID号，并将其粘贴到第2页的A列中

---

任何帮助将不胜感激，我是新的VBA宏，并发现一些代码在线，但不明白它。请帮助我，并请提供一个语法来解决一些解释，这样我就可以学习如何做我自己的。谢谢

可能有点复杂，但这会返回“a”列中的唯一数字

---

首先，子单元格A1然后通过所有其他单元格循环，从第一个单元格开始，循环到活动工作表中的最后一个单元格。如果一个数字等于多个单元格（总是一个，因为你也会用它自己的值检查单元格），那么该数字将不会显示在E列中。然后它取下一个数字，并再次遍历所有单元格，直到选中每个数字。小变动和数字将显示在另一张表中。希望它对您有用。

在excel中，您只需使用记录宏功能即可。开始录制，做任何你想做的事情，它会为你刚才做的事情制作一个宏。谢谢你的建议。非常感谢你的语法和解释。这段代码真的很有用！！。再次感谢。

Option Explicit
Dim i, j, count, lastrow As Integer
Dim number As Long

Sub find_unique()
    lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    For i = 1 To lastrow
        number = Cells(i, 1)
        For j = 1 To lastrow
            If number = Cells(j, 1) Then
                count = count + 1
            End If
        Next j
    If count = 1 Then
        Cells(i, 5) = number
    Else
        Cells(i, 5) = ""
    End If
    count = 0
    Next i
End Sub