Вставка строк в EXEL

[YurVall]

до боли простой вопрос,
из кучи листов итоги должны сводится в один лист,
подскажите код плиз, в VBA пока полный ноль....

алгоритм:
лист1 копирование строчки 40
лист "итог" вставка скопированного в строчку 2
лист2 копирование строчки 40
лист "итог" вставка скопированного в строчку 3
и т.д.

хелп

[alibek]

Лучше это делать вообще без макросов, используя возможности Excel. Будут использоваться функции СМЕЩ(), ДВССЫЛКА(), ПОЗ() и т.п.

[YurVall]

вседаки желательно из макроса, потому что при обработке листов где находятся итоговые данные используется макрос....
хотелось дабавить в этот макрос доп. наворот чтобы итоговые данные переносились на один листок "итог"
задачка уже в одном: при выборе строчки для вставки данных проводить проверку на "занятость" строк (достаточно оринтироваться на занятость ячейки А1,2,3...n)...
тоесть если в ячейке А2 есть данные то выбрать ячейку А3 и вставить скопированную строчку 40....
подозреваю что задачка для профессионалов простая, но для меня пока не посильная

[GSerg]

Код: Выделить всё

dim w as worksheet, i as worksheet

set i=worksheets("итог")

for each w in worksheets
  if not w is i then w.rows(40).copy i.rows(i.cells(1,1).currentregion.rows.count+1)
next

[YurVall]

GSerg
спасибо, только код с таким алгоритмом был бы для меня лучше:

если ячейка А(n) содержит занчение
то выбрать ячейку А(n+1)

как написать не знаю...

[Isa]

GSerg
спасибо, только код с таким алгоритмом был бы для меня лучше:

если ячейка А(n) содержит занчение
то выбрать ячейку А(n+1)

как написать не знаю...

Для интереса можешь использовать функцию IsEmpty(Cells(1,n)) для определения пустой ячейки...