需要爲每個後續對角線添加一個附加單元格的對角線單元格

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