копирование колонтитулов в Excel

недавно понадобилось сделать одинаковые колонтитулы на всех листах одной книги. Сделал на первом листе  нужный колонтитул, а вот скопировать его на другие листы штатными средствами не получилось.

Нашел макрос для решения этой проблемы средствами Visual Basic

 

Sub copy_colontitul()

Dim s As Worksheet
With ActiveSheet.PageSetup

 

For Each s In Worksheets

If s.Name <> ActiveSheet.Name Then
s.PageSetup.LeftHeader = .LeftHeader
s.PageSetup.CenterHeader = .CenterHeader
s.PageSetup.RightHeader = .RightHeader
s.PageSetup.LeftFooter = .LeftFooter
s.PageSetup.CenterFooter = .CenterFooter
s.PageSetup.RightFooter = .RightFooter
End If

Next
End With
End Sub

Добавить комментарий

Войти с помощью: 

Ваш e-mail не будет опубликован. Обязательные поля помечены *