Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Макрос объединяющий ячейки по столбцам на всю стра


Автор: varfj54j 12.6.2012, 12:39
Добрый день, подскажите, пожалуйста, возможно ли написать макрос, который позволяет объединять ячейки в столбце в диапазоне равному одной странице. Например, есть таблица на 150 страниц. По столбцу В от 1-ой ячейки на странице до последней ячейки на странице, необходимо объединить ячейки. Помогите осуществить данную задачу.

Автор: dorogoyIV 14.6.2012, 09:36
а чо это никто не отвечает?  smile 
Код

Sub varfj54j()
 For i = 1 To Sheets.count
  Sheets.Item(i).Activate
  Columns("B:B").Select
  
  With Selection
   .VerticalAlignment = xlTop
   .MergeCells = True
   .Value = "Лист " & i
  End With
 Next i
End Sub

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)