在更改最后一列的右侧插入列

Question

我有这样的excel表：

每个月，我必须在现有列的右侧插入相同的9列。任何人都可以帮助我使用VBA /宏在最后一列的右侧插入行。最后一列（本表中的“i”）将在一个月内改变，增加9列。除了插入列，我还想在插入的列中复制文本。

我很感激您的时间和帮助。

Answer 1

这样的事情对你有用：

Dim c as range

set c = activesheet.cells(1,columns.count).End(xlToLeft).offset(0,1)

with c.Resize(1,9)
   .value = Array("Tab1", "Tab2", "Tab3", _
                   "Tab4", "Tab5", "Tab6", _
                   "Tab7", "Tab8", "Tab9")
   .font.bold = true
end with