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

Question

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

3

我正在制作一个宏，根据表格中的其他列自动添加列。以下是功能说明：

我在这个表格中有很多以“CY 2010”-“CY 2020”为标题的列。这些年份将不可避免地更改。然后我想为每个“CY”列添加一列到表中。此外，我希望这些列的标题与年份匹配，但显示为“Content Volume YEAR”。

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

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”等的表格末尾。

那么如何修改上述代码以命名这些列呢？

谢谢。

-Sean

- detroitwilly

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- mr.Reband · Accepted Answer

以下是如何更改列名的示例：

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