因此,我正在研究这个宏,它根据表中的其他列自动将列添加到表中。所以这是功能:
我在此表中有许多标题为“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”等的表末尾。
那么如何修改上面的代码来命名列呢?
Thanks.
-Sean
以下是如何更改列名称的示例:
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)