Я пытаюсь взять данные с помощью VBA и вставить их в ячейку на другом листе

Question

Мой вопрос заключается в том, что я пытаюсь использовать Excel VBA и выбрать определенное имя в столбце, а затем перенести данные из ячейки справа от нее и поместить эти данные в ячейку на другом листе

Sub button()

a = Worksheets("three").Cells(Rows.Count, 1).End(xlUp).Row

Dim lastrow As Long, errow As Long
If Worksheets("three").Range("G1") = "email@domain.com" Then
    Worksheets("three").Range("G1").Offset(i, 1).Copy
    Worksheets("three").Activate
    Worksheets("Sheet2").Activate
    ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("c3")
End If

End Sub

Answer 1

Возможно, это не так просто, чего вы пытаетесь достичь, но для начала, вот как вы бы это делали для 1 записи, согласно вашему коду:

Sub button()

With Worksheets("three").Range("G1")
    If .Value = "email@domain.com" Then
        Worksheets("Sheet2").Range("C3") = .Offset(0, 1).Value
    End If
End With
End Sub