Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Продление формулы макросом на неопределенное заранее количество строк
 
#1
06.08.2016 16:50:02
Здравствуйте! Есть код:
Код
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D10")

Но автозаполнение возможно должно будет происходить до 11-го, 15-го или любого другого ряда, в зависимости от количества заполненных ячеек с столбце слева.
Можно ли вместо D10 поставить переменное значение. Что-то типа формулы =счетз(C:C)
 
 
 
#2
06.08.2016 17:17:42
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 100 Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
06.08.2016 17:23:07
Код
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D" & iLastRow)
 
 
 
#4
06.08.2016 17:23:31
   Здравствуйте. Попробуйте так и избавьтесь от Select
Код
  Dim s As Long
 s =Application.CountA(Range("C:C"))
Range("D2:D" & s)="Пишем нужные данные"
 
 
 
#5
06.08.2016 17:31:26
Спасибо! Оба варианта работают!
 
 
 
#6
06.08.2016 17:33:01
А что означает:
Код
End(xlUp).Row
 
 
 
#7
06.08.2016 17:34:41
Код
iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
Последняя строка в столбце С
 
 
 
#8
06.08.2016 17:41:52
Понял! Всем спасибо!!!
 
 
 
Страницы: 1
Наверх