Подпись отчета

[Anutik]

Подскажите пожалуйста как быть? Из программы в Excel выгружается справка1...колличество строк как и листов неограниченно...как в конце этой справки сделать подпись такого вида как в справка2?

[EducatedFool]

Это можно сделать при помощи простейшего макроса:

Sub AddFooter()
    Dim ra As Range: Set ra = ActiveSheet.[b:b].Find(Chr(34))(3, 0)
    Dim f As Range: Set f = ThisWorkbook.Worksheets(1).Range("footer")
    ra.Resize(f.Rows.Count).EntireRow.UnMerge
    f.EntireRow.Copy ra.Resize(f.Rows.Count).EntireRow
End Sub

1. Подключите прикреплённую к сообщению надстройку (через меню Сервис - Надстройки)
2. Откройте файл Справка1 (или аналогичный)
3. Нажмите Ctrl + G для добавления подписи

[Anutik]

EducatedFool, благодарю Вас за помощь)))

[Teslenko_EA]

Здравствуйте Anutik.
..с помощью макроса из шаблона.
Евгений.

[Anutik]

EducatedFool, возможно я что-то делаю не так...но для файла который был в качестве примера "справка" при нажатии Ctr+G надстройка срабатывает, а для файла выгруженного из программы, "Srpavka" - нет. Подскажите в чем дело?

[Anutik]

Файл "Справка" и "Spravka"

[EducatedFool]

а для файла выгруженного из программы, "Srpavka" - нет. Подскажите в чем дело?

А Вы сами не видите отличий между этими файлами?

В приведённом Вами изначально примере подпись занимает диапазон из 10 строк и 102 столбцов:



И как Вы предлагаете вставлять ЭТО в справку, состоящую из 6 столбцов?

Можно, конечно, вставить подпись в виде картинки, но в этом случае подпись нельзя будет отредактировать...

Выглядеть это будет так:

[Anutik]

спасибо) просто изначально был макет справка он изменился

[Anutik]

и без редактирования там никак. Спасибо за помощь в любом случае)))