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

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

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