Excel VBA「應用程序定義的或對象定義的錯誤」

Question

我想確定一個公式，該公式需要從列D中取出數字，並計算出C列中的數字減去14. 然後，我要自動填充範圍到我計算的第一個單元格。

首先是工作，但現在它顯示我的錯誤：

appliction-defined or object-defined error

這行代碼

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

如果有人能幫助我解決這個prblem我會高興。

OP_wb.Sheets("Optic Main").Activate 

Dim FirstRow As Range 
Dim lastrow As Range 


Set FirstRow = Range("C1").End(xlDown).Offset(1, 0) 
Set lastrow = Range("E1").End(xlDown).Offset(0, -2) 

Range("E1").End(xlDown).Offset(0, -2).Select 

      Range(FirstRow, lastrow).FormulaR1C1 = "=(c4-14)" 
      Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

Answer 1

而不是

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

嘗試

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow.Row)