我正在制作一个宏,根据表格中的其他列自动添加列。以下是功能说明:
我在这个表格中有很多以“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