четные не четные строки

[osset]

Приветствую!
в работе задействуются 1 столбец и n-количество строк в этом столбце.
вопрос в следующем:
Как можно сделать так чтоб из каждой 2 строки в столбце вычиталось каждая 1 строка или другими словами, чтоб из четных строк с числами вычитались не четные строки с числами.

[Hugo121]

Написать в нужных ячейках две простые формулы типа =E2-E1, затем выделить эту область (с пустыми ячейками) и протянуть вниз?

[osset]

1)мне бы желательно это в вба выразить
2)такой вариант не подоидет потому что не известно количество ячеек между двумя значениями(

[Hugo121]

Теперь понятно, не номера строк, а положенин по порядку считать нужно.
На ВБА так можно - диапазон в массив (или прямо с листа), затем перебор и вычитаем из второго встреченного значение первое.
Собственно код нужно ещё продумать, а алгоритм примерно наверное такой.

P.S. Промежуточные значения нужны?

Вот без промежуточных прикидка:

Sub tt()
Dim flag As Boolean

For Each cc In [a1:a40]
If cc <> "" Then
If flag Then
sum_ = sum_ + cc.Value - temp
flag = False
Else
temp = cc.Value
flag = True
End If
End If
Next

End Sub

Вывода на лист пока нет, сумма в sum_ собирается.

[IgorGO]

а вот и формула нашлась:

=СУММ(R1C1:R36C1*(-1)^ОСТАТ(МУМНОЖ(ЕСЛИ(СТРОКА(R1C1:R36C1)>=ТРАНСП(СТРОКА(R1C1:R36C1));1;);--(R1C1:R36C1<>0));2))

громоздкая слегка, но короче чем код писать

[osset]

Сообщение от IgorGO

а вот и формула нашлась:

=СУММ(R1C1:R36C1*(-1)^ОСТАТ(МУМНОЖ(ЕСЛИ(СТРОКА(R1C1:R36C1)>=ТРАНСП(СТРОКА(R1C1:R36C1));1;);--(R1C1:R36C1<>0));2))

громоздкая слегка, но короче чем код писать

увы не так(

[Hugo121]

Код написать проще

[osset]

Hugo121 молочинка то что доктор прописал)

[osset]

ВСЕМ КТО ОТКЛИКНУЛСЯ БОЛЬШОЕ СПАСИБО)

[nilem]

На 1 переменную меньше

Sub tt2()
Dim cc As Range, sum_ As Double
Dim k As Long

For Each cc In [a1:a40]
    If cc <> "" Then
        k = k + 1
        sum_ = IIf(k Mod 2 = 0, sum_ + cc.Value, sum_ - cc.Value)
    End If
Next
MsgBox sum_
End Sub