Excel VBA hlookup return 400

Question

我有一个 sheet 的当前回合得分和一个 sheet 的总得分。我需要将本轮的最终得分与所有得分一起保存到sheet中。

第一个 Hlookup 工作正常，但在第二个 Hlookup VBA 崩溃 (400)。

Dim TotSht As Worksheet
Dim NowSht As Worksheet
Set TotSht = Worksheets("Total")
Set NowSht = Worksheets("Current")

TotSht.Range("D1").EntireColumn.Insert
TotSht.Range("D1").Value = NowSht.Range("U1") 'Round number

TotSht.Range("D2").Value = WorksheetFunction.HLookup(TotSht.Range("A2"), NowSht.Range("C2:H3"), 2)
TotSht.Range("D3").Value = WorksheetFunction.HLookup(TotSht.Range("A3"), NowSht.Range("C2:H3"), 2)
TotSht.Range("D4").Value = WorksheetFunction.HLookup(TotSht.Range("A4"), NowSht.Range("C2:H3"), 2)
TotSht.Range("D5").Value = WorksheetFunction.HLookup(TotSht.Range("A5"), NowSht.Range("C2:H3"), 2)
TotSht.Range("D6").Value = WorksheetFunction.HLookup(TotSht.Range("A6"), NowSht.Range("C2:H3"), 2)
TotSht.Range("D7").Value = WorksheetFunction.HLookup(TotSht.Range("A7"), NowSht.Range("C2:H3"), 2)

我做错了什么？

编辑：如果我使用“on error resume next”，只有第一个和第三个被加载。在我的数据集中，前 3 个 Hlookup 应该 return 一些值，而第 4 个没有匹配项。

Answer 1

错误已解决。我所做的是关闭 excel 并再次打开它。

Excel VBA hlookup return 400

Excel VBA hlookup return 400

excel

vba

vlookup