我正在尝试使用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