VBA Lookup - 查找范围错误

Question

我已经用尽了所有选择，所以我只能任凭你摆布。我正在尝试在 excel 中自动生成报告，但查找不起作用。这个想法是它在一个每天刷新的数据透视表上进行查找，然后移动到下一个空天并给出结果。我已经尝试过记录并且查找工作，但是每天它都会将查找范围移动一列，我无法修复它。我的代码如下，任何帮助将不胜感激。

   Range("B36").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select


  Dim row As Integer
    For i = 36 To 40


Set inRange = Range("B" & i & ":B" & i)
Set LookupRange = Sheets("MV Pivot").Columns("N:R")


MsgBox (inRange)

    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(" & inRange & "," & LookupRange & ",5,FALSE),0)"
                      ActiveCell.Offset(1, 0).Select
        Next I

谢谢

Logie143

Answer 1

只是一些事情..

1. 正如 FAURILLOU Amandine 所提到的，我认为您可以将 inRange 引用为 Range("B" & i) - 同意。
2. 正如 Darren 所说，使用公式 - 同意。

3. 我会亲自查看数据透视表，并尝试引用数据透视表的数据范围，而不是引用它。就像我尝试做的那样。这样，如果枢轴的位置改变了，你会没事的。快速浏览了一下对象模型，它会是这样的：

   Worksheets("MV Pivot").PivotTables("The Name").DataBodyRange

4. 虽然您使用公式来查找数据透视数据列，但您实际上可以调用 Evaluate 函数。如果您在单元格中使用公式，如果数据透视表数据发生变化，它也会更改历史数据，因为它是一个公式。您可以通过简单地对结果进行硬编码来解决此问题。

说了这么多，请试一试，看看它是否有效/解决了您的问题。

Sub Test()

Range("B36").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select

Dim inRange As Range, LookupRange As Range
Dim row As Integer, i As Integer

For i = 36 To 40
    Set inRange = Range("B" & i)
    Set LookupRange = Range("$K$36:$P$41")
    MsgBox (inRange)
    ActiveCell.Formula = Evaluate("=IFERROR(VLOOKUP(" & inRange.Address & "," & LookupRange.Address & ",5,FALSE),0)")
    ActiveCell.Offset(1, 0).Select
Next i

End Sub

希望对您有所帮助。