AutoFill宏到长度

Question

我正在尝试填充D1中的一个公式，并将D填充到C的长度。我正在使用下面的宏并得到以下错误-编译错误: Expected with：

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

你的问题很简单。我使用宏记录器来AutoFill一个公式范围，发现目标范围以公式范围开始，所以

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