excel - 查找前两行VBA的总和

Question

我正在尝试一个简单的求和 vba 代码。我想在定义的范围内找到前 2 行的总和。但是，我在运行以下代码时收到 #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