AutoFill Macro to Length

Question

Я пытаюсь заполнить формулу, которая у меня есть в D1, и заполнить D до длины C. Я использую макрос follwing, и я получаю следующую ошибку: Compile Error: Ожидаемый конец с

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

Ваша проблема была простой. Я использовал запись макросов для АВТОЗАПОЛНЕНИЯ Выбора диапазона формул и обнаружил, что диапазон назначения начинается с хребтом Формулы, так

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