Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце

[Shpr0T]

Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце, и вывод в отдельную ячейку.

в общем незнаю как сделать, подскажите что.

пример прикрепил.

Просто объем очень большой и нужен макрос

[Teslenko_EA]

Здравствуйте Shpr0T.
если я правильно понял "проблему", Вам поможет подобный код:

Sub toRep()
Dim o As Object, rng As Range, vArr(), j&, q#
Set o = ThisWorkbook.Sheets(1)
With o.UsedRange: j = .Rows.Count + .Row - 1: End With
Set rng = o.Range("a2:g" & j): vArr = rng.Value

For j = UBound(vArr) To 1 Step -1
    If Len(vArr(j, 1)) > 0 Then
       o.Cells(j + 1, 8) = q + vArr(j, 7): q = 0
    Else
        q = q + vArr(j, 7)
    End If
Next
End Sub

Евгений.

P.S. выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.

[R Dmitry]

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

Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце, и вывод в отдельную ячейку.

в общем незнаю как сделать, подскажите что.

пример прикрепил.

Просто объем очень большой и нужен макрос

Вот так подойдет ? вариант 2

[Shpr0T]

Спасибо всем, помогли.

[Shpr0T]

Огромное спасибо.

[Shpr0T]

Уважаемый Teslenko_EA , а как сдеать чтобы макрос начал действовать с 7 строки?

[IgorGO]

до Teslenko_EA мне еще расти и расти, но все же отвечу:
замените
For j = UBound(vArr) To 1 Step -1
на
For j = UBound(vArr) To 7 Step -1

и еще открою Вам страшную тайну: макрос начинал действовать не с 7-й строки, а с последней...

[Shpr0T]

Огромное спасибо IgorGO.

з.ы. Эту тайну я унесу в могилу

[Teslenko_EA]

Здравствуйте господа.
свои посты я подписываю в надежде, что обращаться ко мне будут по имени.
Игорь спасибо
Shpr0T "..я унесу.." только не торопитесь.
Евгений.