Вставка столбцов справа от изменения последнего столбца - PullRequest
Новая
       5

Вставка столбцов справа от изменения последнего столбца

0 голосов
/ 07 марта 2012

У меня есть лист Excel, подобный этому:

enter image description here

Каждый месяц мне приходится вставлять одни и те же 9 столбцов справа от существующих столбцов.Кто-нибудь может мне помочь с вставкой строк справа от последнего столбца, используя VBA / макрос.Последний столбец («i» на этом листе) изменится очень месяц с добавлением 9 столбцов.Кроме того, наряду со вставкой столбцов, я также хочу копировать текст во вставленных столбцах.

Буду признателен за ваше время и помощь в том же.

1 Ответ

0 голосов
/ 07 марта 2012

Что-то вроде этого должно работать для вас: 

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
...