Скопируйте значение в столбце A, если в столбце B есть значение, вставка в E7 Excel

Question

Просматривая l oop через столбец B и, если присутствует слово «Match», скопируйте значение в столбце A и вставьте в E7 sheet1. Пробовал это:

Private Sub Consolidate_Matches()
    Dim Match As String
    Dim FinalRow As Integer
    Dim i As Integer

    Match = Sheets("Sheet1").Range("P1").Value
    FinalRow = Sheets("Sheet1").Range("B10000").End(xlUp).Row

    For i = 2 To FinalRow
        If Cells(i, 2).Value = "Match" Then
            Range(Cells(i, -1)).Copy
            Range("e7").End(xlUp).Offset(1, 0).PasteSpecial
        End If
     Next

End Sub

Answer 1

Попробуйте:

Sub test()

    Dim Lastrow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row

            For i = 2 To Lastrow

            If .Range("B" & i).Value = "Match" Then
                .Range("E7").Value = .Range("A" & i).Value
            End If

        Next i

    End With


End Sub