Excel VBA hlookup 返回 400

Question

我有一张包含当前回合分数的表格和一张包含总分的表格。
我需要将当前回合的最终分数保存到所有分数的表格中。
第一个 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)

我究竟做错了什么？
编辑:如果我使用“下一个错误恢复”只有第一个和第三个被加载。
在我的数据集中，前 3 个 Hlookups 应该返回一些值，而第 4 个没有匹配。

Answer 1

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