Sum Excel Ranges Diagonally
Category: [Excel] Demo Available
Sum Excel Ranges Diagonally
Sum: Left-to-right | Right-to-left | Top-down | Bottom-up
Got any Excel/VBA Questions? Excel Help
Diagonal Sum
Ever wanted to sum some cells in Excel, but with a twist. Sum cells diagonally top-to-bottom and vice versa, left-to-right and vice versa. This code will give Excel that ability. As with nearly all custom functions for excel, it pays to keep the ranges used as small as possible.
Function SumDiagonal(rRange As Range, LrRl As String, Optional BsrtBottom As Boolean) As Single
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'WRITTEN BY OZGRID.COM
'Sum a range cells diagonally. Summation occurs left-to-right or right-to-left _
top-to-bottom (default) or bottom-to-top
'rRange should be as small as possible for efficieny
Dim lRows As Long, lCol As Long, lLoopR As Long, lloopC As Long
Dim sTot As Single
lRows = rRange.Rows.Count
lCol = rRange.Columns.Count
lloopC = 1
With WorksheetFunction
'Left to right, top to bottom
If UCase(LrRl) = "LR" And BsrtBottom = False Then
For lLoopR = 1 To lRows
sTot = .Sum(rRange(lLoopR, lloopC), sTot)
lloopC = lloopC + 1
Next lLoopR
'Right to left, top to bottom
ElseIf UCase(LrRl) = "RL" And BsrtBottom = False Then
lloopC = lCol
For lLoopR = 1 To lRows
sTot = .Sum(rRange(lLoopR, lloopC), sTot)
lloopC = lloopC - 1
If lloopC = 0 Then GoTo Result
Next lLoopR
'Right to left, bottom top
ElseIf UCase(LrRl) = "RL" And BsrtBottom = True Then
lloopC = lCol
For lLoopR = lRows To 1 Step -1
sTot = .Sum(rRange(lLoopR, lloopC), sTot)
lloopC = lloopC - 1
If lloopC = 0 Then GoTo Result
Next lLoopR
'Left to right, bottom top
ElseIf UCase(LrRl) = "LR" And BsrtBottom = True Then
lloopC = lCol
For lLoopR = lRows To 1 Step -1
sTot = .Sum(rRange(lLoopR, lloopC), sTot)
lloopC = lloopC - 1
If lloopC = 0 Then GoTo Result
Next lLoopR
End If
End With
Result:
SumDiagonal = sTot
End Function
Example usage:
=SumDiagonal(A2:G100,lr) left-to-right/top-to-bottom OR =SumDiagonal(A2:G100,rl,TRUE) right-to-left/bottom-to-top
See also:
| Index to Excel VBA Code |
See also Index to Excel VBA Code and Index to Excel Freebies and Lesson 1 - Excel Fundamentals and Index to how to… providing a range of solutions.
Click here to visit our Free 24/7 Excel/VBA Help Forum where there are thousands of posts you can get information from, or you can join the Forum and post your own questions.