Question

我有以下代码不断抛出错误：

Object不支持此属性或方法

expectedProjectWS.Range("A" & lastAddress + 1).Offset(1, 3).Formula "=SUM(D11:(OFFSET(" & newrow & ",-1,0)))"

我正在尝试在粘贴行后添加一个公式。我已经打印了调试，它可以正确打印，这很容易让人感到困惑。

可能导致此错误的原因是什么？

Answer 1

提供expectedProjectWS是对工作表的有效引用，lastAddress是一个行号，而newrow是一个字符串引用作为字符串，那么您只是忘了把它放在单词公式后=。

这会将公式=SUM(D11:(OFFSET(D18,-1,0)))放在单元格D7中。

Sub test()

    Dim expectedProjectWS As Worksheet
    Dim lastAddress As Long
    Dim newrow As String

    Set expectedProjectWS = ThisWorkbook.Worksheets("Sheet1")
    lastAddress = 5
    newrow = "D18"

    expectedProjectWS.Range("A" & lastAddress + 1).Offset(1, 3).Formula = "=SUM(D11:(OFFSET(" & newrow & ",-1,0)))"

End Sub

对象不支持在属性中添加此属性或方法

1 个答案: