在不同的工作表中查找值答案

【问题标题】：Find value in different worksheet在不同的工作表中查找值
【发布时间】：2017-07-12 09:32:10
【问题描述】：

我正在尝试编写一些代码，例如，选择工作表 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

【问题讨论】：

标签： vba excel for-loop if-statement

【解决方案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

【讨论】：