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

Question

我有一个有几十列的项目，每当为项目生成新的 excel 文件时，一些标题名称需要更改。

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

我用谷歌搜索了这个，没有发现任何专门做这个的。

我最接近的是将一组名称映射到前 n 个标头：

IE

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