用VBA在单元格中写一个Excel公式

Question

I want to write an excel formula into a cell by a VBA code. I have a table in "sheets1" named "Table1". In "sheets2", cell "A2" I want to add a formula to subtract first row and final row of column B of "Table1" from "sheets1" so that the user can see the formula in the cell. Is there any way to do that?

Answer 1

Would be something like this

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

Note: You have to Create a Module an put the Code in there

In excel you can call this as a Formular with =Substract()