VBA 索引和匹配

Question

我正在尝试编写一个代码，该代码使用我当前的工作簿并打开另一个工作簿，然后使用 Index 和 Macth 查找比较两种类型的标准来比较两者的数据。

Sub BCReport()
Dim wbO As Workbook
Dim wsO As Worksheet
Dim wbJune As Workbook, wsJune As Worksheet

Set wbO = ThisWorkbook
Set wsO = wbO.Sheets("Combined")

Set wbJune = Workbooks.Open("J:\15_0615_P.xls")
Set wsJune = wbJune.Sheets("Combined")

Set myRange = wsO.Range("AI2:AI3000")
Set myCPTRange = wsO.Range("I2:I3000")
Set myALLRange = ws0.Range("V2:V3000")

Set JuneCPTRange = wsJune.Range("I2:I3000")
Set JuneALLRange = wsJune.Range("V2:V3000")
Set JuneMCPGRange = wsJune.Range("AI2:AI3000")

For i = 1 To myRange.Rows.Count
    For j = 1 To myRange.Columns.Count

test = Application.WorksheetFunction.Index(JuneMCPGRange, Application.WorksheetFunction.Match(myCPTRange.Cells(i, j).Value & myALLRange.Cells(i,j).value, JuneCPTRange & JuneALLRange, 0))
    Next j
Next i

End Sub

我所做的基本上是我有一个 7 月的文件（我当前的文件）和一个 6 月的文件（我希望在代码中出现的文件）。我想查看“CPT”代码及其对应的“ALL”金额，并搜索我从 6 月开始的以前的电子表格，如果有任何行在这两个条件中匹配，我想将 JuneMCPGRange 中的内容输出到原始文档的单元格中（这与 CPT 和当前正在查找的所有金额一致）

如果有人有任何帮助，那就太好了！

非常感谢。

Answer 1

这两个工作表引用不同...

Set myCPTRange = wsO.Range("I2:I3000")
Set myALLRange = ws0.Range("V2:V3000")

如果您总是在每个模块的顶部使用Option Explicit，您可以避免此类错误。

编辑： 我认为您不能像在 VBA 中那样运行多值 MATCH 查找：您可以做的最好的事情是使用范围地址来构造适当的公式，然后使用 wsO.Evaluate(yourformulahere) 运行它并获取输出.

参见例如最后一个答案：Concat multiple MATCH criteria in Excel VBA