Страницы: 1
RSS
VBA: копирование диапазона строк в другой диапазон
 
Всем доброго времени суток!

Есть табеля в формате, где сперва идет строка с кодами явок, потом строка с фактическими часами, и так по два раза, посколько дни с 1 по 15 и с 16 по 31 наложены друг на друга.
Вопрос: возможно ли с помощью макроса скопировать / вырезать данные с кодами явок и часами для диапазона 16-31 и вставить вровень с 1 - 15?
Файл-пример в приложении

Спасибо!
 
Цитата
с помощью макроса скопировать / вырезать данные с кодами явок
Код
Sub Tablica()
Dim i As Long
    Range(Cells(4, "B"), Cells(4, "Q")).Cut Cells(3, "Q")
  For i = 7 To 15 Step 4
    Range(Cells(i + 2, "B"), Cells(i + 3, "Q")).Cut Cells(i, "Q")
  Next
    Rows(4 & ":" & 5).Delete
End Sub
Страницы: 1
Наверх