Excel VBA – VLookup不复制数据

我已经尽我所能去阅读每个可以想象的线程来重写我的整体代码，以使其工作。

情况：我有sheet2（分数）和sheet3（评论）中的数据中的数据。 在每张表中，列A都有一个票号。 分数表包括每个可能的票号; 评论表只包括该总数的一个子集（约50％）。 “评分”工作表包含4个填充列，而注释工作表有2个。我需要查找来匹配现有的常用行（票号），然后将评注列B（2）中的值粘贴到E列（5） sheet1，它是CSAT摘要工作表，并具有Col分数工作表中的内容。

以下是当前的代码。 如果我删除VLookup，只是把一个variables（如“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 

不知道我缺less什么。 显然这是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