用新的标题名称列表更改列表中的标题名称

Question

我有一个项目有几十个列，并且某些标题名称需要在项目生成新的excel文件时进行更改。

此外，这些列不是连续的，可以将它们的位置从一个excel文件转移到另一个excel文件。

我已经使用了这个，并没有发现任何具体的事情。

我来最接近的是this名称的阵列映射到第一n头：

即

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