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

时间:2019-07-04 09:49:02

标签: excel vba excel-formula

我想通过VBA代码将Excel公式写入单元格。我在“ sheets1”中有一个名为“ Table1”的表。在“ sheets2”的单元格“ A2”中,我想添加一个公式以从“ sheets1”中减去“ Table1”的B列的第一行和最后一行,以便用户可以在单元格中看到该公式。有什么办法吗?

1 个答案:

答案 0 :(得分: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中,您可以使用= Substract()将其称为公式工具