自动填充macros到长度

我想填充一个公式，我在D1中，并填充D的长度C.我正在使用follwingmacros，我得到以下错误 – 编译错误：预期结束与

Sub Macro3() Macro3 Macro Range("D1").Select ActiveCell.FormulaR1C1 = "=RC[-2]*(-1)+RC[-1]" Range("D1").Select Dim LastRow As Long With Sheets("Sheet2") LastRow = Range("C" & Rows.Count).End(xlUp).Row Range("D1").AutoFill Destination:=Range("D2:D" & LastRow) End Sub 

Answer 1

你的问题是一个简单的问题。 我用macroslogging器来自动填充一个公式范围，发现目的地范围以公式范围开始，所以

 Range("D1").AutoFill Destination:=Range("D2:D" & LastRow) 

应该：

 Range("D1").AutoFill Destination:=Range("D1:D" & LastRow) 

这里是工作代码，固定和清理了一下:)

 Sub Macro3() With Sheets("Sheet1") Dim LastRow As Long LastRow = Range("C" & Rows.Count).End(xlUp).Row With Range("D1") .FormulaR1C1 = "=RC[-2]*(-1)+RC[-1]" .AutoFill Destination:=Range("D1:D" & LastRow) End With End With End Sub