Изменить имена заголовков в списке со списком новых имен заголовков

Question

У меня есть проект с десятками столбцов, и некоторые имена заголовков должны меняться всякий раз, когда для проекта создается новый файл excel.

Также столбцы не смежны и могут перемещать свои позиции из одного файла excel в другой.

У меня есть googled это и не нашел ничего, что делает это конкретно.

Ближайший я пришел в this, отображающей множество имен первых русских заголовков:

т.е.

headerValues = Array("Name1", "Name2", "Name3") 

newheaderValues = Array("NewName1", "NewName2", "NewName3") 

Благодарности

Answer 1

Предполагая, что заголовки в строке 1:

Sub tgr() 

    Dim headerValues As Variant 
    Dim newheaderValues As Variant 
    Dim i As Long 

    headerValues = Array("Name1", "Name2", "Name3") 
    newheaderValues = Array("NewName1", "NewName2", "NewName3") 

    For i = LBound(headerValues) To UBound(headerValues) 
     Rows(1).Replace headerValues(i), newheaderValues(i), xlWhole 
    Next i 

End Sub