Сложение Диапазонов

[IgorGO]

for i = to n-1?

это опечатка, писал просто с руки, а компилятор форума программистов не проверяет код на корректность (строку не подчеркнул, красным не выделил...)
следует читать: for i = 0 to n-1.
до сих пор не знаю, что написать в n, пусть будет 5.

n = 5
for r = 1 to 10
for i = 0 to n-1
with sheets(1)
cells(r,7) = cells(r,7) + .cells(i*15+1,1)
end with
next
next

Валера, кода-то написано с Гулькин нос, самостоятельно проанализировать никак? Цикл вложен в цикл, внутри выполняется одна единственная строка, в которой складываются значение двух ячеек

[slan]

1й вариант - только при копи-паст там пробел лишний вкрадывается - я это счас поправлю..

[valerij]

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

это опечатка, написано с Гулькин нос, самостоятельно проанализировать никак?

Игорь, ну конечно, я все делал, просто это не то, складывается ведь не диапазоном, а:
cells(r,7) = cells(r,7) + .cells(i*15+1,1)
А1(при i=0) + A16(при i=1) + А31(при i=2)......
А где А2, А3, .....
Т. е. складываются только начальные ячейки диап. А1:А10, А16:А25...

slan
Теперь ОК, только у меня 30 штук диапазонов, прикинь длину, хотя сюда Лист1!$A$1:$A$10 можно цикл применить, попробую, интересно?

[slan]

да, вот так можно:

Sub Макрос1()
Dim i&
Names.Add "a", "1"
Range("G1:G10").Value = 0
For i = 1 To 15
    Names("a").RefersTo = "=" & Range("G1:G10").Address & "+" & Range(Cells(i * 15 - 14, 1), Cells((i + 1) * 15 - 20, 1)).Address
    Range("G1:G10").Value = [a]
Next
End Sub

но в принципе, этот метод удобен для получения именно массива VBA, а если его тут же приходится обратно на лист отправлять, то лучше воспользоваться кодом SAS888

[IgorGO]

уже хорошо.

Т. е. складываются только начальные ячейки диап. А1:А10, А16:А25...

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

[valerij]

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

уже хорошо.
осталось только запустить процедуру и посмотреть, что действительно складывается.

Игорь, без проблем, смотри, запусти макрос IgorGO

[IgorGO]

спору нет. я облажался. макрос писал с руки, не запуская эксель.
0 я пропустил - это была опечатка. а тут явная ошибка.
жаль, что ты так и не смог ее исправить:

Sub IgorGO()
n = 5
For r = 1 To 10
For i = 0 To n - 1
With Sheets(1)
Cells(r, 7) = Cells(r, 7) + .Cells(i * 15 + r, 1)
End With
Next
Next
End Sub

[valerij]

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

жаль, что ты так и не смог ее исправить:

Да, теперь, ОК!!!
Игорь, просто нет времени, выпадающий список штудирую, идет др. месяц, много очень изменений, дай бог успеть, а тут уже готовые....., ну там собраны, посмотри!!

[IgorGO]

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

[Lenon]

Не пробовали range.Consolidate ??