无法自动填充到最后一行

-1

我正在使用新数据始终刷新自己的动态范围。无法自动填充到最后一行

问题是我无法自动填充，而且我使用偏移量，所以它给我如何使用最后一行的问题。

下面是代码：

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配方到最后一行？

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

来源

2017-04-10 VBA Toddler

首先，你不需要'Range（“D2：D”＆lstRow）'中的额外括号。第二个是你没有问任何问题。你期望你的代码做什么？你的代码实际上是什么？请阅读[问]并提出一个好问题。 –

您需要完全限定您的参考资料，以确保所有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

来源

2017-04-10 12:44:55

Robin，你忘了锁定'VLookup'中的行索引，它需要''= VLOOKUP（$ B2821，Sheet2！A $ 1：BX $ 6149,65,0）“' –

谢谢Shai - 更新。 –

无法自动填充到最后一行

回答

相关问题