Как сделать итоговую формулу до конца автоматически? - PullRequest
Новая
       45

Как сделать итоговую формулу до конца автоматически?

0 голосов
/ 20 января 2020

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

, например: 

Sheets("RBC_data").Select

Range("R1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(rowoffset:=1).Activate

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R.....

Как написать Код для формулы выберите строку R2 до конца и сделайте формулу промежуточной суммой?

1 Ответ

1 голос
/ 20 января 2020

Поверьте мне, вы не можете получить ответы на форуме быстрее, чем вы можете получить их, проведя небольшое исследование самостоятельно. Все здесь знают это. Поэтому они направляют вас на две ноги.

Вот ответ на ваш вопрос. Обратите внимание, что он вставит формулу в ActiveSheet, то есть вкладку, которую вы просматриваете при вызове макроса или ту, которую вы в последний раз просматривали, прежде чем переключиться на VB Editor. Если вам нужно указать другой лист, сделайте небольшое исследование. Это быстро и просто. Но избегайте выбора, как сказал PEH. 

Sub InsertSubtotal()

    Dim Cell As Range

    Set Cell = Cells(Rows.Count, "R").End(xlUp)
    Cell.Offset(1).Formula = "=SUBTOTAL(9,$R$2:" & Cell.Address & ")"
End Sub
...