Копирование содержание ячеек и их ширины

[tae1980]

Необходимо скопировать содержание ячеек, оформление ячеек и ширину столбцов. Я делаю это так:

   'Берем шаблон в буфер обмена.
   Шаблоны.Range("Участки.шаблон").Copy
   'Копируем содержание шаблона для нового участка.
   Участки.Cells(1, Смещение_уч).PasteSpecial
   'Копируем размер столцов шаблона.
   Участки.Cells(1, Смещение_уч).PasteSpecial Paste:=xlPasteColumnWidths

Можно ли это сделать одной строчкой?

[EducatedFool]

Можно ли это сделать одной строчкой?

Копировать ширину столбцов всё равно придётся отдельной командой...

Но можно и одной строкой:

Шаблоны.Range("Участки.шаблон").Copy: Участки.Cells(1, Смещение_уч).PasteSpecial: Участки.Cells(1, Смещение_уч).PasteSpecial Paste:=xlPasteColumnWidths

[tae1980]

Сообщение от EducatedFool

Копировать ширину столбцов всё равно придётся отдельной командой...

Мне не удалось с копировать высоту строки. ( При копировании она всегда приводиться к одной строчке...

Сообщение от EducatedFool

Но можно и одной строкой:

)))

[EducatedFool]

Мне не удалось с копировать высоту строки.

Можете попробовать так:

Range("d3:f4").Copy: Range("d10:f11").EntireRow.AutoFit    ' автоподбор высоты

Или для каждой строки после вставки изменяйте свойство RowHeight:

Range("d10:f11").RowHeight = 20

Я при формировании отчётов для сохранения высоты строк делаю несколько иначе: копирую весь лист, а потом вырезаю лишнее.
В этом случае нет никаких проблем с высотой строк...

[eda]

Скажите, пожалуйста, можно ли узнать ширину столбца до применения AutoFit, которая будет у столбца после AutoFit?

[EducatedFool]

Нет, нельзя.
Можно попробовать вычислить, но это долго и сложно.

Проще выполнить AutoFit, посмотреть, что получится (запомнить новую ширину), и вернуть всё как было.