通过Excel中的宏在表中添加列时设置列标题

Question

因此，我正在研究此宏，该宏根据表中的其他列自动将列添加到表中。所以这是功能：

我在此表中有许多列，标题为“ CY 2010”-“ CY 2020”。这些年将不可避免地发生变化。然后，我想为表中的每个“ CY”列添加一列。此外，我希望这些列的标题与年份匹配，但请说“内容量年份”

当前，我有以下代码可以适当地添加列：

Sub AddContentValueColumns()
'
' AddContentValueColumn Macro
' Adds yearly vehicle content value columns to Propulsion data table.
'

'
    last = [A1].Value               ' cell contains number of "CY" columns in sheet

'   Debug.Print (last)

    For Count = 1 To last
        Dim oSh As Worksheet
        Set oSh = ActiveSheet
        oSh.ListObjects("PropTable").ListColumns.Add
    Next Count

End Sub

这可以添加列，但是当前仅将列添加到标有“ CY 2021”的表的末尾，依此类推。

那么，如何修改上面的代码来命名列呢？

谢谢。

-西恩

Answer 1

这是一个如何更改列名的示例：

last = [A1].Value               ' cell contains number of "CY" columns in sheet
For Count = 1 To last
    Dim oSh As Worksheet
    Set oSh = ActiveSheet
    Dim oLc As ListColumn
    Set oLc = oSh.ListObjects("PropTable").ListColumns.Add
    oLc.Name = "COLUMN NAME" & last
Next Count