在不同的工作表中查找值

我正在尝试编写一些代码，例如，在工作表2中select单元格A2中的值，将其与工作表1中的范围A：A进行比较，如果find相同的值，则会从该工具中复制一些值在Sheet 1中将它们粘贴到Sheet 2中，然后在Sheet 2中查看单元格A3并重复该过程。 然后在Sheet 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 

Answer 1

尝试这个：

 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