は、私はこのようなExcelシート持っている最後の列

Question

を変更する右に列を挿入：毎月

を、私は、既存の列の右に同じ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