将vlookup添加到数组在另一张图纸上的范围内

Question

我必须在我的工作表的第一个空列中添加一堆电子邮件，即项目摘要（有标题行）。这些电子邮件来自另一个名为“员工”的工作表。我不希望“项目摘要”工作表上的单元格值成为函数，因此我不能仅输入VLOOKUP。我希望“电子邮件”列中的结果只是电子邮件地址。电子邮件地址位于B列的Employee工作表上，而A列为项目经理名称。

因此，在“项目摘要”工作表上，我需要引用“项目经理名称”（这是名称下方列出的标题），然后在“员工”工作表上找到其对应的电子邮件地址，并将其输入到第一个空列中。

我在网上找到了这段代码，并对其进行了一些操作，但是我认为它将把VLOOKUP添加到我不想要的列中。该代码虽然不起作用。它在“设置myLookupValue”行中细分。

Range("A1").End(xlToRight).Offset(0, 1).Select
       Selection.Value = "Email"
       ActiveCell.Offset(1, 0).Select

       Dim myLookupValue As Range
       Dim myColumnIndex As Long
       Dim myTableArray As Range

       Set myLookupValue = Range(Cells(ActiveCell, "A"))
       myColumnIndex = 2

    With Worksheets("Employees")
        Set myTableArray = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp))
    End With

    Do While ActiveCell = ""
        ActiveCell.Formula = WorksheetFunction.VLookup(myLookupValue, myTableArray, myColumnIndex, False)
        ActiveCell.Offset(1, 0).Select
    Loop

总而言之，我想将“项目经理姓名”电子邮件地址添加到第一个空列中，并且该电子邮件地址存储在名为“员工”的工作表中。