Печать верхних и нижних строк на каждом листе. Растяжка формул по объедененным ячейкам.

[vamesc]

Здравствуйте! Подскажите как решить две задачи. Первая: распечатать на каждой странице верхние и нижние строки. Вторая: растянуть формулу по объедененым ячейкам без смещения номера ячейки на кол-во объедененных ячеек. В прилагаемом файле работа уже сделана, но сделана она в первой задаче дублированием нижних строк, во второй задаче ручным перебиванием номеров в ячейках, долго и нудно, хотя больше времени потратил на то как этого избежать).

[doober]

Для не ручного вбивания формул

Sub M_Formula()
Dim I As Integer,n As Integer
For n = 8 To 194 Step 6
  Range("A" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C=0,"""",ВИК!R[" & 6 - I * 5 & "]C)"
  Range("C" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C[11]=0,"""",ВИК!R[" & 6 - I * 5 & "]C[11])"
   Range("C" & n + 2).FormulaR1C1 = "=IF(ВИК!R[" & 4 - I * 5 & "]C[13]=0,"""",ВИК!R[" & 4 - I * 5 & "]C[13])"
   Range("C" & n + 4).FormulaR1C1 = "=IF(ВИК!R[" & 2 - I * 5 & "]C[13]=0,"""",ВИК!R[" & 2 - I * 5 & "]C[13])"
   Range("F" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C[7]="""","""",ВИК!R[" & 6 - I * 5 & "]C[7])"
   Range("F" & n + 2).FormulaR1C1 = "=IF(ВИК!R[" & 4 - I * 5 & "]C[6]="""","""",ВИК!R[" & 4 - I * 5 & "]C[6])"
   Range("H" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C[-1]="""","""",ВИК!R[" & 6 - I * 5 & "]C[-1])"
   Range("J" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C[-6]="""","""",ВИК!R[" & 6 - I * 5 & "]C[-6])"
   Range("W" & n).FormulaR1C1 = "=IF(ВИК!R[" & 6 - I * 5 & "]C[3]=0,"""",ВИК!R[" & 6 - I * 5 & "]C[3])"
   Range("V" & n + 1).FormulaR1C1 = "=IF(ВИК!R[" & 5 - I * 5 & "]C[5]=0,"""",ВИК!R[" & 5 - I * 5 & "]C[5])"
  I = I + 1
Next
End Sub

[vamesc]

doober, спасибо работает! А не могли бы вы хотя бы кратко описать, что и как работает, а то незная как в будущем приминить вашу помощь мне не удастся, ведь тоже самое мне нужно провернуть с листом ЧЕК ЛИСТ, макросы пока писать не умею, хочу научиться. Спасибо за отзыв!). Единственно, без решения вопроса с печатью, данный макрос берет значения из продублированных нижних строк, которые выступают как колон титулы, в листе ВИК они выделены зеленым цветом. Сначала я делал чтобы кол-во вводимых соединений было столько сколько хочу, но столкнувшись с этими двумя проблемами решил ограничить до 30, и в листе ВИК пришлось вставлять каждый раз нижние строки. Можно конечно удалить строки, выполнить макрос, а потом опять вставить их на место.

[doober]

Использовал инструмент Камера.
Посмотреть изменения диапазона -нажимаем Спин.
На пользовательской панели Печать есть кнопка ВИК.
Выведет на просмотр 4 страницы для печати.

А не могли бы вы хотя бы кратко описать, что и как работает

Нажал запись Макрорекодера.
Пощелкал по ячейкам с формулами.
Проанализировал зависимость в формулах от строки.
Запустил в цикл.

[vamesc]

doober, спасибо еще раз! Вы здорово мне помогли. А про команду Камера узнал только от вас, полезная штука.