用新的標題名稱列表更改列表中的標題名稱

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