小编use*_*184的帖子

我正在尝试创建一个VBA代码,当第一列中的标准"Lukas"和第二列中的"Apple"符合时,它会将下表中第三列中的数据复制到Sheet"Results"中.我知道这可以通过使用具有多个条件的VLOOKUP来完成,但数据源长度通常会发生变化,我需要宏从ROW 2进行检查直到最后一个可见的ROW.

根据我的例子,我应该在运行宏后在第二张表中找到值8和5.下面是我写的代码但是没有用.

    Sub copy()

Dim LastRow As Long
Dim i As Long

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow

If Worksheets("Sheet1").Cells(i, 1) = "Lukas" And Worksheets("Sheet1").Cells(i, 2) = “Apple” Then
 Worksheets("Sheet1").Cells(i, 3).Select
 Selection.copy
 Sheets("Sheet2").Select
 Range(Cells(1, 1)).PasteSpecial xlPasteValues

End If
Next i

End Sub