Как автозаполнить функцию в VBA?

Question

Я пытаюсь выполнить автозаполнение и нашел код для проблемы, однако, после завершения автозаполнения все ячейки просто выдают тот же результат, что и из исходной ячейки.

Sub Button2_Click()


Range("P2").Value = Application.Sum(Range(Cells(2, 18), Cells(2, 40)))

Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P5"), Type:=xlFillDefault

End Sub

Answer 1

Я не уверен, что именно вы ищете, но если вы хотите использовать функцию SUM, возможно, это одна строка:

Range("P2:P5").Formula = "=SUM(Q2:AN2)"

Вы можете написать формулук диапазону за один раз, нет необходимости AutoFill.

Если вы просто хотите получить значения, добавьте вторую строку для преобразования формул в значения:

Range("P2:P5").Value = Range("P2:P5").Value