Как упростить код суммы строк?

Question

[Максим К]

Всем привет. Есть код (суммирует 4 строки и выводит результат в одну):

Cells(2, cellABC) = WorksheetFunction.sum(Range("C2:C5"))
Cells(3, cellABC) = WorksheetFunction.sum(Range("C6:C9"))
Cells(4, cellABC) = WorksheetFunction.sum(Range("C10:C13"))
........

Пытаюсь написать нечто:

ABC = 8;

for j=2 to 25
for i =1 to 24

Cells(j, ABC) = WorksheetFunction.sum(range(Cells((4*1-2),3), Cells((4*i+1),3)))

i = i +1
j = j+1

Next i
Next j
....

Но результат не верный.
Спасибо

Answer 1

[alexalexes]

4*1-2
Точно 1 а не i ?
Имейте привычку трассировать тело цикла, раскладывая непонятное выражение на составные части (а лучше сразу писать так, чтобы анализировать проще было человекам) и писать эти части куда-нибудь в консоль/лог-файл и т.д. (не знаю, чем пользуются в VB для "быстро выгрузить что-то и посмотреть отладочные данные").

_A = WorksheetFunction.sum(range(Cells((4*1-2),3), Cells((4*i+1),3)))
_B = Cells((4*1-2),3)
_C = Cells((4*i+1),3)
_D = 4*1-2
_E = 4*i+1

Comments

[Максим К]

Про 1 это да, но не в этом сама неисправность,. Просто код переписывал с фото - опечатался. А так спасибо, попробую ещё раз все разложить