как применить текущее форматирование к новым строчкам вставленной командой Insert

TEG Гость	#1 22.03.2010 18:02:41 Selection.Insert Shift:=xlDown полная строка с помощью, которой вставляются строки из другого документа. Заранее спасибо!

dude Пользователь Сообщений: 1066 Регистрация: 22.12.2012	#2 22.03.2010 18:39:15 спец вставка формулы или значения

dude Пользователь Сообщений: 1066 Регистрация: 22.12.2012	#3 22.03.2010 18:41:55 сорри. ваша команда берет форматирование с верх строки, но она вставляет строку а не данные

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

22.03.2010 18:50:29

Попробуйте так:

Sub test()
Selection.Offset(1).Insert
End Sub

Этот код вставляет строку ПОД выделенным диапазоном.
Соответственно, форматирование копируется с верхней строки - образца

Можно и так:

Sub test()
Dim ra As Range: Set ra = Selection.Cells(1).EntireRow
ra.Offset(1).Insert
ra.AutoFill ra.Resize(2), xlFillFormats
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

TEG Гость	#5 22.03.2010 22:45:24 Большое спасибо!

Читают тему