Vba 在不同的工作表中查找值

我正在尝试编写一些代码，例如，选择表2中单元格A2中的值，将其与表1中的范围A:A进行比较，如果找到相同的值，它将从表1中的该行复制一些值并粘贴到表2中。然后查看表2中的单元格A3并重复该过程。然后在第2页中的单元格A4等

从现在开始我迷路了。有什么想法吗

Sub Last_Week()

Dim Sheet2 As Worksheet
Dim Sheet1 As Worksheet

Set Sheet2 = ActiveSheet
Set Sheet1 = ActiveSheet.Previous

Sheet1.Activate

Dim i As Integer
For i = 1 To 1500
    Columns("A:A").Select
    Set cell = Selection.Find(What:=(ACTIVATE WS AND SELECT THE VALUE IN COLUMN A AND ROW I)

    If cell Is Nothing Then
'do it something

    Else
'do it another thing
    End If

Next i

End Sub

试试这个：

Sub Last_Week()


Dim Sheet1 As Worksheet
Set Sheet1 = Worksheets("Sheet1")

Dim Sheet2 As Worksheet
Set Sheet2 = Worksheets("Sheet2")

Dim i As Integer
For i = 1 To 1500
    'search cell A & i from Sheet2 in column A in Sheet1
    Set cell = Sheet1.Columns("A:A").Find(Sheet2.Cells(i, 1).Value, LookIn:=xlValues)

    If cell Is Nothing Then
    'do it something
    Else
    'do it another thing
    End If

Next i

End Sub