Протягивание множества формул по листу до - Microsoft Office Excel

Viktor_ · 13.11.2015, 14:40

Доброго времени суток ))) Прошу помочь.
Есть вот такой очень простой макро:

Код:

 Range("B10:AD10").Select
    Selection.AutoFill Destination:=Range("B10:AD750"), Type:=xlFillDefault
    Range("B10:AD750").Select

Проблема в том что у меня в файле не всегда 750 строк на которые нужно протянуть формулы.
Иногда их 75 иногда 200 а иногда 751 )))

Можно ли как то сделать что бы протягивание формул было на уровень последней заплоненной ячейки при условии что в столбце А могут быть и незаполненные ячейки?
На первой картинке так как делает сейчас. На второй так как нужно.

AleksandrH · 13.11.2015, 14:47

Код:

 Range("B10:AD10").Select
    Selection.AutoFill Destination:=Range("B10:AD"& iColARows), Type:=xlFillDefault
    Range("B10:AD"& iColARows).Select

iColARows знаешь где искать?

13.11.2015, 14:47	#2
AleksandrH Заблокирован Регистрация: 15.02.2010 Сообщений: 148	Код: `Range("B10:AD10").Select Selection.AutoFill Destination:=Range("B10:AD"& iColARows), Type:=xlFillDefault Range("B10:AD"& iColARows).Select` iColARows знаешь где искать?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Протягивание ячеек	kent4	Microsoft Office Excel	5	12.12.2014 14:02
Протягивание ячеек	mad_1	Microsoft Office Excel	1	11.04.2014 17:05
Не стандартное "протягивание" формул	NMag	Microsoft Office Excel	10	11.01.2012 21:54
Ввод даты в форме, протягивание формул (для прогноза)	novak_26	Microsoft Office Excel	2	27.02.2010 15:39
автоматическое протягивание строк и формул	IFRSoff	Microsoft Office Excel	7	08.04.2009 13:58