აგერაა, თუ იცი რა უნდა უქნა ამას
Public Function SumStep(Rng As Range, Optional StepX As Long = 1, Optional StepY As Long = 1, Optional SkipX As Long = 0, Optional SkipY As Long = 0) As Double
Dim I As Long, J As Long, S As Double, V As Variant
If StepX = 0 Then StepX = 1
If StepY = 0 Then StepY = 1
Set Rng = Rng.Areas(1)
For I = Rng.Column + SkipX To Rng.Column + Rng.Columns.Count - 1 Step StepX
For J = Rng.Row + SkipY To Rng.Row + Rng.Rows.Count - 1 Step StepY
V = Cells(J, I)
If IsNumeric(V) Then S = S + V
Next J
Next I
SumStep = S
End Function
პს. შედეგის მოხსენება არ უნდა, 4 წელია ვიყენებ