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