查找前两行VBA的总和

Question

我正在尝试一个简单的求和vba代码。我想在定义的范围内找到前两行的总和。但是，运行以下代码时，我收到#VALUE错误返回：

Function test(prices As Range)

    test = prices.Rows.Value + prices.Rows.Offset(1, 0).Value

End Function

请告知，非常感谢！

Answer 1

Value仅查看单个单元格，而Rows查看范围内的所有行，因此您的代码试图添加单个单元格以为整个行，然后返回相当于耸肩的计算机。

尝试使用：

Function test(prices As Range) As Double
        test = Application.WorksheetFunction.Sum(prices.Rows(1).Resize(2))
End Function  

它将查看您指定范围的前两行。

这也可以工作-现在查找时不确定是否省去了Worksheetfunction位：

Function test(prices As Range) As Double
        test = Application.Sum(prices.Rows(1).Resize(2))
End Function