用VBA在單元格中寫一個Excel公式

Question

我想通過VBA代碼將Excel公式寫入單元格。 我在“ sheets1”中有一個名為“ Table1”的表。 在“ sheets2”的單元格“ A2”中，我想添加一個公式以從“ sheets1”中減去“ Table1”的B列的第一行和最后一行，以便用戶可以在單元格中看到該公式。 有什么辦法嗎？

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中，您可以使用= Substract（）將其稱為公式