Excel VBA 索引/匹配问题

Question

我很难设置这个索引/匹配功能代码。 我尝试了几个选项，但都不起作用。

我收到错误Run-time error '91': Object variable or With block variable not set。

这是我的代码：

Sub breaks()

Dim wks As Worksheet

With Worksheets("report")
Range("I2") = Application.WorksheetFunction.Index(wks("final pos.xlsx").Sheet("position").Range("AG:AG"), Application.WorksheetFunction.Match(Sheets("report").Range("H2"), Sheets("position").Range("AK:AK"), 0))
Range("J2") = Application.WorksheetFunction.Index(wks("final pos.xlsx").Sheet("position").Range("I:I"), Application.WorksheetFunction.Match(Sheets("CASSreport").Range("H2"), Sheets("position").Range("AK:AK"), 0))

End With

End Sub

Answer 1

如果您有 Run-time error '91': Object variable or With block variable not set 错误，那么您的函数中的 somehtng 将返回 Nothing 并且您正在尝试使用它。

找到这个最简单的方法是引入中间变量，然后查看其中哪些没有设置。例如，我在下面的语句的第一部分引入了临时变量。您可以重复其他部分，直到找到中断的部分，然后看看为什么没有设置。

Sub breaks()

Dim wks As Worksheet
Dim finalPosWorksheet as Worksheet
finalposWorksheet = wks("final pos.xlsx")

Dim position as Sheet
position = finalPosWorksheet.Sheet("position")

Dim positionRange as Range 
postionRange = position.Range("AG:AG")

With Worksheets("report")
Range("I2") = Application.WorksheetFunction.Index(positionRange, Application.WorksheetFunction.Match(Sheets("report").Range("H2"), Sheets("position").Range("AK:AK"), 0))
Range("J2") = Application.WorksheetFunction.Index(wks("final pos.xlsx").Sheet("position").Range("I:I"), Application.WorksheetFunction.Match(Sheets("CASSreport").Range("H2"), Sheets("position").Range("AK:AK"), 0))

End With

End Sub

写下来后，我现在对这条线非常怀疑：

wks("final pos.xlsx")

这里的意图是什么？打开工作簿？我怀疑这会奏效......

我会将您的代码分解为您想要遵循的步骤，每行一个步骤。一旦你让它工作了，你就可以重构它以将行连接在一起并消除临时变量。