Question

我正在研究一个动态范围，它总是用新数据刷新自己。

问题在于我无法自动填充，而且我也使用了偏移，所以它给我提供了如何使用最后一行的问题。

以下是代码：

WB3.Worksheets("sheet1").Activate
lstRow = Range("A" & Rows.Count).End(xlUp).Row
Range (("D2:D") & lstRow)
Range(("O2:O") & lstRow).Formula = "=VLOOKUP($B2821,Sheet2!A1:BX6149,65,0)"

有人可以建议如何解决这个问题，将VLOOKUP公式放到最后一行吗？

任何帮助将不胜感激。感谢

Answer 1

您需要完全限定参考资格，以确保所有Range和Rows适用于WB3.Worksheets("sheet1")。请尝试以下代码：

Option Explicit

Sub Test()
    Dim lstRow As Long
    With WB3.Worksheets("sheet1")
        lstRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("O2:O" & lstRow).Formula = "=VLOOKUP($B2821,Sheet2!$A$1:$BX$6149,65,0)"
    End With
End Sub

无法自动填充到最后一行

1 个答案: