excel - 如何将范围的终点定义为数据的最后一行？

Question

我正在使用 vlookup，在通过查找找到它后，我正在使用自动填充。在自动填充代码之后的宏中，它会找到范围并自动填充它。但就代码的健壮性而言，它没有用处，因为它找到的范围与代码有关。基本上，

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],Sheet1!C[-5]:C[4],7,FALSE)"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F502")
    Range("F2:F502").Select

是原始代码，我只想做 Range("F2: last data")

提前致谢

编辑:已解决。

Dim LastRow As Long

LastRow = Cells(Rows.Count, "F").End(xlUp).Row   


Range("F2").Select


        ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],Sheet1!C[-5]:C[4],7,FALSE)"
       Range("F2").Select
        Selection.AutoFill Destination:=Range("F2", Cells(LastRow, 6))

我试图简化代码，但我想我需要把它放在每个 VLOOKUP 之前

Answer 1

查找 中使用的最后一行F栏 .

编辑 1 :添加LastCol (从本例中的第 2 行开始))

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],Sheet1!C[-5]:C[4],7,FALSE)"
Range("F2").Select

Dim LastRow As Long
Dim LastCol As Long

LastCol = Cells(2, Columns.Count).End(xlToLeft).Column
LastRow = Cells(Rows.Count, LastCol).End(xlUp).row

' assuming your data starts from row 2
Selection.AutoFill Destination:=Range(Cells(2, LastCol), Cells(LastRow, LastCol))
Range(Cells(2, LastCol), Cells(LastRow, LastCol)).Select