Заменить текст в верхнем и нижнем колонтитуле файла Excel

Question

Я хочу проверить верхний и нижний колонтитулы на листе Excel и заменить все значения данной строки другой строкой. Как это можно сделать с помощью vba?

Answer 1

Вам необходимо использовать для использования Sheet.PageSetup. Я предполагаю, что вы ищете центральный заголовок и нижний колонтитул. Следующие будут работать для вас

Sub LoopThroughPageSetup() 
    Dim sh As Worksheet 
    For Each sh In ThisWorkbook.Worksheets 
     If sh.PageSetup.CenterHeader = "hello" Then 'change to whatever you want 
      sh.PageSetup.CenterHeader = "hi" 
     End If 
     If sh.PageSetup.CenterFooter = "hi" Then 
      sh.PageSetup.CenterFooter = "hello" 
     End If 
    Next sh 
End Sub