Question

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

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

我已经用Google搜索了这一点，并没有发现具体的这一点。

我最接近的是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

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

1 个答案: