Макрос создания и объединение строк

[Blood_ghosT]

Приветствую форумчане!!
Столкнулся с проблемой которой сам к сожаления не могу справиться!!
Дело обстоит так, дали Excel с макросами, и макросы не работают, переходы сам исправил, а вот создание строк и объединение ни смог как бы ни пытался!!
Прошу помочь с листами 3, 4, 6, а остальные попробую сам!
За ранее благодарю

[Watcher_1]

Проблема в том что кроме переходов других макросов нет!

[Blood_ghosT]

Я в курсе, поэтому и прошу с листами 3, 4, 6, а остальные попробую сам!
или показать как добавляются строки и объединение этих строк!!
на на листе под именем 3 там есть объединение которые я сам через макросы ни как не могу реализовать! Помоги те пожалуйста!!

[Hugo121]

И ктож такую красоту придумал?
Это ведь буквально репорты ацессовские!
В общем, для работы это всё совершенно не годится.
Ну а для учёбы... Даже не знаю...
Вот например - есть нормальная база, и из неё нужно для распечатки нагенерить таких листов (аля ACCESSS report's) - вот это ещё понимаю. И сделать сравнительно несложно, и обучать этому есть смысл.

Ну а тут... Я бы делал так - копируем последнюю "строку" ниже, очищаем от данных (кроме формулы).

[Blood_ghosT]

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

И ктож такую красоту придумал?
Это ведь буквально репорты ацессовские!
В общем, для работы это всё совершенно не годится.
Ну а для учёбы... Даже не знаю...
Вот например - есть нормальная база, и из неё нужно для распечатки нагенерить таких листов (аля ACCESSS report's) - вот это ещё понимаю. И сделать сравнительно несложно, и обучать этому есть смысл.

Ну а тут... Я бы делал так - копируем последнюю "строку" ниже, очищаем от данных (кроме формулы).

На сколько я знаю там нет репортов и данных и формул тоже там просто пустые таблицы, ссылки и макросы!! А вот насчет кто придумал я не в курсах скинули и сказали работайте через этот ексель файл, а то что там макростов нет так они не поверили и мало того сказали мол они у всех работают одни мы такие "умные" что ни как не можем разобраться с этим файлом!!!
Копированием в листе с именем 3 наверное не поможет, там объединение 9 строк!!

Или не могли бы вы по подробней пожалуйста тут я дуб дубом! простое добавление строк я могу но там эти объединение 9 строк происходит через одну строку, так как я не знаю синтаксис макросов самому мне не по плечу сделать это!!
За ранее спасибо!!

[Hugo121]

Ну ладно.
Для листа 3 например так:

Sub Макрос2()
    Dim r As Range, i As Long
    Application.ScreenUpdating = False

    i = Cells(Rows.Count, 2).End(xlUp).Row
    Set r = Cells(i, 2).MergeArea.Resize(, 24)
    r.Copy r.Offset(r.Rows.Count + 1)

    i = Cells(Rows.Count, 2).End(xlUp).Row
    Set r = Cells(i, 2).MergeArea.Resize(, 24)
    r.Columns("B:X").ClearContents

    Application.ScreenUpdating = True
End Sub

Думаю несложно сделать по аналогии и для остальных.

[Blood_ghosT]

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

Ну ладно.
Для листа 3 например так:

Sub Макрос2()
    Dim r As Range, i As Long
    Application.ScreenUpdating = False

    i = Cells(Rows.Count, 2).End(xlUp).Row
    Set r = Cells(i, 2).MergeArea.Resize(, 24)
    r.Copy r.Offset(r.Rows.Count + 1)

    i = Cells(Rows.Count, 2).End(xlUp).Row
    Set r = Cells(i, 2).MergeArea.Resize(, 24)
    r.Columns("B:X").ClearContents

    Application.ScreenUpdating = True
End Sub

Думаю несложно сделать по аналогии и для остальных.

Спасибо все заработало!!!