对象不支持此属性或方法式

Question

加入我有以下的代码，不断抛出的错误：

对象不支持此属性或方法

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