Excel VBA-VLookup不复制数据

Question

我已尽力阅读所有可以想象的线程，以重写我的总体代码以使其正常工作。

情况：我在sheet2（分数）中有数据，在sheet3（注释）中有数据。 在每个工作表中，列A都有票证编号。 分数表包含所有可能的票号； 注释表仅包含该总数的一部分（约50％）。 分数表包含4个填充的列，而注释表包含2个。我需要查找以匹配现有的常见行（票号），然后在注释列B（2）中获取值并将其粘贴到E列（5）中。 sheet1的内容，这是CSAT摘要表，并且具有“分数”表中Col AD​​的内容。

下面是当前代码。 如果我删除了VLookup并仅放置了一个变量（例如“ A”），它会将A粘贴到正确的列中，即使在每一行中也是如此...

scores.UsedRange.Columns.Copy
csatSum.Range("A1").Insert
csatSum.Activate
Set rng = csatSum.Range("A2:A" & lastRow)
rngLastRow = Comments.Range("B2:B" & lastRow)
For i = 2 To lastRow
    On Error Resume Next
    csatSum.Cells(i, 5) = WorksheetFunction.VLookup(rng, Comments.Range(rngLastRow), 2, False)
    On Error GoTo 0
Next i

不知道我在想什么。 显然，这是VLookup本身的事情。 但是我很茫然。

Answer 1

我认为应该是：

scores.UsedRange.Columns.Copy
csatSum.Range("A1").Insert
'csatSum.Activate
'Set rng = csatSum.Range("A2:A" & lastRow)
Set rngLastRow = Comments.Range("A2:B" & lastRow)
For i = 2 To lastRow
    On Error Resume Next
    csatSum.Cells(i, 5) = WorksheetFunction.VLookup(csatSum.Cells(i, 1), rngLastRow, 2, False)
    On Error GoTo 0
Next i