將公式自動提交到列的最后一行

Question

我需要不斷地從單元格R2處開始，並自動將公式填充到R列的最后一行。但是，行數一直在變化，因此我需要編寫一個宏來查找最后一行並在此停止。 目前，我的代碼將自動將R列填充到工作表的末尾（而不是數據停止的行）。 如何使自動填充在不再有任何數據的正確行處停止？

Sub InvoicePrice()

Dim Lastrow As Long

Lastrow = Range("P" & Rows.Count).End(xlDown).Row

Range("R2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-4]"
    Selection.AutoFill Destination:=Range("R2:R" & Lastrow)



End Sub

Answer 1

嘗試以下操作（避免選擇/激活）：

Dim Lastrow As Long
'Lastrow = Range("P" & Rows.Count).End(xlDown).Row
Lastrow=Cells(Rows.Count, "P").End(xlUp).Row

Range("R2:R" & Lastrow).FormulaR1C1 = "=RC[-2]/RC[-4]"

Answer 2

  set r = range("R2")
  If r.Offset(1, 0) <> "" Then
    lastRow = r.End(xlDown).row
   Else
    lasRow = r.row
  End If