插入列不斷變化的最後一列

Question

的權利我有一個Excel工作表是這樣的：

每個月，我有相同的9列插入到現有列的右側。任何人都可以幫助我使用VBA /宏將行插入到最後一列的右側。最後一列（本表中的「我」）會在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