需要为每个后续对角线添加带有附加单元格的对角线单元

Question

我需要帮助以对角线格式获取特定单元格的总和。我的问题是每个后续对角线增长1个单元格。我在想我使用For循环，但我不知道如何为循环的每次迭代添加一个额外的单元格。下图显示了我需要求和的数据格式示例。有任何想法吗？谢谢你的帮助。

Answer 1

这是一个要求添加值的范围和计数的函数。您可以调整代码以消除完全添加计数的需要，但这是一个开始。

为了清楚起见，你会像这样输入你的表格：

=AddDiagonal(D4,0)
=AddDiagonal(D7,1)
=AddDiagonal(D10,2)
...

<强>功能

Function AddDiagonal(rng As Range, cnt As Long) As Double

Dim x As Long
Dim answer As Double

For x = 0 To cnt

    If x = 0 Then

        answer = answer + rng.Offset(x, x)

    Else

        answer = answer + rng.Offset(x * -3, x * 1)


    End If

Next

AddDiagonal = answer

End Function