Написать формулу Excel в ячейке по VBA

Question

Я хочу записать формулу Excel в ячейку с помощью кода VBA. У меня есть таблица в «sheet1» с именем «Table1». В «sheet2» в ячейку «A2» я хочу добавить формулу, чтобы вычесть первую и последнюю строки столбца B таблицы «Table1» из «sheet1», чтобы пользователь мог видеть формулу в ячейке. Есть ли способ сделать это?

Answer 1

Было бы что-то вроде этого

Public Function Substract()
    dim firstRow as Integer
    dim endrow as Integer

    firstrow = IIf(IsEmpty(Sheets("Table1").Range("B1")), Sheets("Table1").Range("B1").End(xlDown).Row, 1)
    endrow =  Sheets("Table1").Cells(Sheets("Table1").Rows.count,"B").End(xlUp).Row

    Substract = firstrow  - endrow
End Function

Примечание: Вы должны создать модуль и поместить туда код

В Excel вы можете назвать это как Formular с = Substract ()