Цикл для суммирования

[ruavia3]

Как написать цикл, который суммировал бы в столбце B ячейки из соответствующих строк столбцов C, D, F.
А останавливался, когда в столбце A натыкался на слово summ?

[EducatedFool]

Sub test()
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell Like "*summ*" Then Exit For
        cell.Next.FormulaR1C1 = "=RC[1]+RC[2]+RC[3]"
    Next
End Sub

[ruavia3]

Все работает, только не останавливается. Может потому что summ стоит в столбце A?

[ruavia3]

Как сделать, чтобы он останавливался?

[EducatedFool]

Как сделать, чтобы он останавливался?

Прикрепить пример файла.


Код проверял - он работает, как Вы и просили.
Цикл останавливается, если в ячейке столбца А присутствует подстрока "summ".
Я ошибся только в формуле - вместо RC[3] надо поставить RC[4]

Суммировать нужно с 3 ячейки, не затирая названия столбцов.

Этого я, конечно, не учёл, поскольку в исходном задании об этом не было ни слова.

Но в остальном-то мой код правильно работает в прикреплённом вами файле - прописывает формулы в строки 2 ... 96
С чего Вы взяли, что он не останавливается?

[ruavia3]

Необходимо, в столбце B суммировать столбцы С, D, E.
Остановить цикл, когда в столбце A будет значение summ* Но значение ячейки всегда меняется, поэтому summ - это 4 символа слева.
Суммировать нужно с 3 ячейки, не затирая названия столбцов.

[HighStar]

ruavia3, приведеный Вами пример я обработал следующим образом -

Sub test()
Dim R As Long
For R = 3 To 65536
  If Left$(Cells(R, 1), 4) = "summ" Then Exit For
  Cells(R, 2).FormulaR1C1 = "=RC[1]+RC[2]+RC[3]"
Next R
End Sub

Вроде бы всё получилось. Код ламерский - зато дешево и сердито.

[SAS888]

Более рационально (и примерно в 100 раз быстрее) так:

Sub Main()
    Dim i As Long, a, b()
    Application.ScreenUpdating = False
    i = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    a = Range([A3], Cells(i, "E")).Value: ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        If a(i, 1) Like "summ*" Then Exit For
        b(i, 1) = a(i, 3) + a(i, 4) + a(i, 5)
    Next
    Range([B3], Cells(UBound(b, 1) + 2, "B")).Value = b
End Sub

[ruavia3]

SAS888, спасибо)) а в этом случае он остановится, когда 4 символа слева будет "summ" или значение ячейки целиком равно "summ"?

[Serge_Bliznykov]

SAS888, Вы меня, малограмотного извините, но я хотел бы уточнить один момент...
я подозреваю, что это просто небольшая описка (или просто опущено из-за быстроты написания кода):
тип переменной a сознательно объявляется как вариант?
и дополнительный вопрос, а какой тип у переменной b ?

________________________________

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

а в этом случае он остановится, когда 4 символа слева будет "summ"

Именно так! (Like ищет совпадение, а * означает, что после summ совпадением будут считаться символы в ячейке)...