在Excel中通过macros将列添加到表时设置列标题

所以我正在处理这个macros，它自动将列添加到基于表中其他列的表中。 所以这里的function是：

我在表格中列出了“CY 2010” – “2020 2020”的一些列。 这些年将不可避免地改变。 然后我想为每个“CY”列添加一列到表中。 此外，我想这些列的标题匹配年，但说“内容卷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

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