Код для продолжения формулы до конца таблицы (макрос)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код для продолжения формулы до конца таблицы (макрос) (Макросы/Sub)

iilfat

Дата: Среда, 22.07.2015, 13:20 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 69

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Здравствуйте.

Есть такой код:
[vba]

Код

Selection.AutoFill Destination:=Range("D11:E15"), Type:=xlFillDefault

[/vba]
И мне надо, чтобы формула продолжилась не до D11:E15, а до конца таблицы, который всегда разный. Так можно?

Сообщение отредактировал iilfat - Среда, 22.07.2015, 13:28

Ответить

SLAVICK

Дата: Среда, 22.07.2015, 13:49 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

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

Код

N = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row), Type:=xlFillDefault

[/vba]
Или одной строкой:
[vba]

Код

Selection.AutoFill Destination:=Selection.Resize(Cells(Rows.Count, Selection.Column).End(xlUp).Row - Selection.Row), Type:=xlFillDefault

[/vba]

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Среда, 22.07.2015, 13:51

Ответить

Udik

Дата: Среда, 22.07.2015, 13:59 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Цитата iilfat, 22.07.2015 в 13:20, в сообщении № 1

Так можно?

И как прога поймет, что ей надо ещё чего-то заполнить?
вроде четко написано

Destination - диапазон, который будет заполнен.

К сообщению приложен файл: 9264003.jpg (15.0 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Среда, 22.07.2015, 14:02

Ответить

iilfat

Дата: Среда, 22.07.2015, 14:00 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 69

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

SLAVICK, Спасибо

[moder]Не надо цитировать пост целиком. Это нарушение Правил форума[/moder]

Сообщение отредактировал Serge_007 - Среда, 22.07.2015, 16:15

Ответить

sv2014

Дата: Среда, 22.07.2015, 21:57 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

iilfat,добрый вечер, только сейчас прочитал ваше обсуждение,предлагаю свой вариант макроса ilifat, который работает во всех случаях ,в то время как в целом интересный макрос от SLAVICK ilifat3
заполняет не весь диапазон(одна последняя ячейка не заполняется) и,а исправленный мной макрос от SLAVICK ilifat2 заполняет весь диапазон,но работает только,если имеется последняя заполненная ячейка в столбце D,а
в случае, когда последняя заполненная ячейка только в столбце E -исправленный макрос от SLAVICK ilifat2 и ilafat 3 не работают.:
перед работой любого из трех макросов надо выделить диапазон D11:E11

[vba]

Код

Sub ilifat()
Dim i&
i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1
Selection.AutoFill Destination:=Range("D11:E" & i), Type:=xlFillDefault
End Sub

[/vba]

[vba]

Код

Sub ilifat2()
Dim N&
N = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row + 1), Type:=xlFillDefault
End Sub

[/vba]

[vba]

Код

Sub ilifat3()
N = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Selection.AutoFill Destination:=Selection.Resize(N - Selection.Row), Type:=xlFillDefault
End Sub

[/vba]

Ответить

Страница 1 из 1
1