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

[valerij]

Подскажите как макросом сложить диапазон ячеек с другого листа?
Пример: Лист3 G1:G10 :
G1:G10 = A1:A10 + A16:A25 + A31:A40 + ..... + Ax:Ay с Листа1(шаг 15)

Формулой это так
Лист3 G1:G10
{=Лист1!A1:A10+Лист1!A16:A25+Лист1! A31:A40}

В рекодере:

Sheets("Лист3").Select
    Range("G1:G10").Select
    Selection.FormulaArray = _
        "=Лист1!RC[-6]:R[9]C[-6]+Лист1!R[15]C[-6]:R[24]C[-6]+Лист1!R[30]C[-6]:R[39]C[-6]"

[IgorGO]

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

[valerij]

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

n = 5
for r = 1 to 10
for i = to n-1

Игорь, а n, что это?
for i = to n-1 то же ?????
Зачем n-1 ???

[slan]

попробуйте так:
sheets(лист3).range("G1:G10")=["=Лист1!A1:A10+Лист1!A16:A25+Лист1! A31:A40"]

[valerij]

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

попробуйте так:
sheets(лист3).range("G1:G10")=["=Лист1!A1:A10+Лист1!A16:A25+Лист1! A31:A40"]

slan!
Это че? Как ты мыслишь это применить?
Мне макрос нужен, c формулой нет проблем!!

For Li = 1 To 13 ' Листы
For idt = 3 To 40 ' Строки
With ActiveCell
Cells(idt, 1 + Li).Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((MOD(ROW(" & Sheets(Li).Name & "!RC4:R[1530]C4)-" & idt & ",51)=0)*(" & Sheets(Li).Name & "!RC4:R[1530]C4))"
        .Value = .Value
      End With
    Next
 Next

Де спецы подевались или опять я тему не понятную "зарядил"??

[SAS888]

Я бы сделал так:

Sub Main()
    Dim i As Long
    Sheets("Лист3").[G1:G10].ClearContents
    With Sheets("Лист1")
        For i = 1 To 31 Step 15
            .Range(.Cells(i, "A"), .Cells(i + 9, "A")).Copy
            Sheets("Лист3").[G1].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
        Next
    End With
End Sub

Естественно, подставьте требуемую границу цикла.

[valerij]

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

Я бы сделал так.

Сергей!!
Как всегда, Супер
Спасибо!

[IgorGO]

а n, что это?

а n - это я не знаю где заканчивается вот это

A1:A10 + A16:A25 + A31:A40 + ..... + Ax:Ay

сколько диапазонов высотой в 10 ячеек обрабатывается. вот сколько диапазонов, столько и n. да, еще - активным должен быть лист3

[slan]

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

slan!
Это че? Как ты мыслишь это применить?
Мне макрос нужен, c формулой нет проблем!!

а вы попробовали?

а так? :

Names.Add "a", "=Лист1!$A$1:$A$10+Лист1!$A$16:$A$25+Лист1!$A$31:$A$40"
Sheets("лист3").Range("G1:G10") = [a]

[valerij]

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

а так? :
Names.Add "a", "=Лист1!$A$1:$A$10+Лист1!$A$16:$A$2 5+Лист1!$A$31:$A$40"
Sheets("лист3").Range("G1:G10") = [a]

slan!
Я даже не знаю, куда это вставлять в модуль или в строку формул?
Если так:

Sub Макрос1()
Names.Add "a", "=Лист1!$A$1:$A$10+Лист1!$A$16:$A$25+Лист1!$A$31:$ A$40"
Sheets("лист3").Range("G1:G10") = [a]
End Sub

То ошибка

Run-time error '1004'
Введенная формула содержит ошибки. Выполните одно из следующих действий.
• Проверьте правильность расстановки скобок и использования аргументов.
• Чтобы получить справку по использованию функции, выберите команду "Функция" (меню "Вставка").

Если в строку формул, то как???

IgorGO
А за цикл for i = to n-1?
Чему равно начало цикла?
Зачем n-1?