Страницы: 1
RSS
Как написать макрос Selection.AutoFill
 
Добрый день!  
 
В ячейке В1 имеется формула.  
С ячейки А1 по А??? вставляются данные.  
Нужен макрос, который растягивал бы формулу в В2 до уровня последней ячейки А???.  
 
Если записать макрос, он выбирает статично заданный диапозон:  
 
Selection.AutoFill Destination:=Range("B1:B10")  
 
Народ, как сделать такой макрос?
 
Оперативней нужно созданные не по правилам темы смотреть - я уже отвечал :)  
Ну ладно, могу повторить (хорошо файл не закрыл :) ):  
 
Sub ttt()  
   Dim lLastrow&  
   lLastrow = Cells(Rows.Count, 1).End(xlUp).Row  
   [b2].AutoFill Destination:=Range("B2:B" & lLastrow)
End Sub
 
Спасибо
Страницы: 1
Читают тему
Наверх