Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как растянуть формулу до последней заполненной строки? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как растянуть формулу до последней заполненной строки? (Формулы)
Как растянуть формулу до последней заполненной строки?
antonio2040 Дата: Среда, 19.02.2014, 20:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Суть такая: есть 2 столбца с данными, в третьем формула (СЦЕПИТЬ). Нужно протянуть ее до конца таблицы (кол-во строк может меняться). Делаю так:[vba]
Код
Sub selection()
             Dim lLastRow As Long
             lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
             Selection.AutoFill Destination:=Range("B2:B[lLastRow]"), Type:=xlFillDefault
End Sub
[/vba]но что-то не получается. В чем я ошибся?


Сообщение отредактировал antonio2040 - Среда, 19.02.2014, 20:51
 
Ответить
СообщениеСуть такая: есть 2 столбца с данными, в третьем формула (СЦЕПИТЬ). Нужно протянуть ее до конца таблицы (кол-во строк может меняться). Делаю так:[vba]
Код
Sub selection()
             Dim lLastRow As Long
             lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
             Selection.AutoFill Destination:=Range("B2:B[lLastRow]"), Type:=xlFillDefault
End Sub
[/vba]но что-то не получается. В чем я ошибся?
Автор - antonio2040
Дата добавления - 19.02.2014 в 20:30
antonio2040 Дата: Среда, 19.02.2014, 20:51 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Проблема решилась одной строчкой...[vba]
Код
selection.AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]
 
Ответить
СообщениеПроблема решилась одной строчкой...[vba]
Код
selection.AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]
Автор - antonio2040
Дата добавления - 19.02.2014 в 20:51
antonio2040 Дата: Четверг, 20.02.2014, 13:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Появился еще один вопрос касательно этой темы..
Если номер столбца (в данном случае 1), по которому идет вычисление находится в другом листе, как оформить ссылку на него??
[vba]
Код
selection.AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]


Сообщение отредактировал antonio2040 - Четверг, 20.02.2014, 13:20
 
Ответить
СообщениеПоявился еще один вопрос касательно этой темы..
Если номер столбца (в данном случае 1), по которому идет вычисление находится в другом листе, как оформить ссылку на него??
[vba]
Код
selection.AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]
Автор - antonio2040
Дата добавления - 20.02.2014 в 13:18
KuklP Дата: Четверг, 20.02.2014, 13:33 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Указать лист и перед Range, и перед Cells и перед Rows. И вместо selection указать конкретный адрес.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 20.02.2014, 13:35
 
Ответить
СообщениеУказать лист и перед Range, и перед Cells и перед Rows. И вместо selection указать конкретный адрес.
Автор - KuklP
Дата добавления - 20.02.2014 в 13:33
antonio2040 Дата: Четверг, 20.02.2014, 13:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
KuklP, спасибо.
Придумал еще один способ:[vba]
Код
Dim rcnt As Integer
Worksheets(1).Select
rcnt=Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(2).Select
selection.AutoFill Destination:=Range("B2:B" & rcnt)
[/vba]По мне, так это проще. К тому же, можно потом еще не раз этим значением пользоваться.


Сообщение отредактировал antonio2040 - Четверг, 20.02.2014, 13:56
 
Ответить
СообщениеKuklP, спасибо.
Придумал еще один способ:[vba]
Код
Dim rcnt As Integer
Worksheets(1).Select
rcnt=Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(2).Select
selection.AutoFill Destination:=Range("B2:B" & rcnt)
[/vba]По мне, так это проще. К тому же, можно потом еще не раз этим значением пользоваться.
Автор - antonio2040
Дата добавления - 20.02.2014 в 13:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как растянуть формулу до последней заполненной строки? (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!