使用LastRow自动填充

我在Sheet1的表格的Sheet2的单元格J1中进行了查找。 之后,我想将公式向下扩展到Sheet2中J列的最后一行。 我在列J上的自动填充部分遇到问题。另外,我正在使用另一个LastRow语句在Sheet1中进行查找。

这是我有(从Sheet1开始):

*SOME OTHER CODE* LASTROW = Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Select LASTROW2 = Range("A" & Rows.Count).End(xlUp).Row ActiveWindow.SmallScroll Down:=-51 Range("J1").Select Application.CutCopyMode = False ActiveCell.FormulaLocal = "=VLOOKUP(F1,Sheet1!$F$2:$G$" & LASTROW & ",2,false)" Selection.AutoFill Destination:=Range("J2:J" & LASTROW2) 

谢谢你的帮助!

也许你的目的地应该包括起始单元格J1:

 Selection.AutoFill Destination:=Range("J1:J" & LASTROW2)