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

将公式自动归档到列的最后一行

2 个答案: