ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Протяжка формулы до последней заполненной строки
15 сообщений из 15, страница 1 из 1
Протяжка формулы до последней заполненной строки
    #36232912
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Здравствуйте.
Помогите, пожалуйста, вопрос в файле.
...
Рейтинг: 0 / 0
05.10.2009, 14:52:54
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36232923
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
2 Sebastian ,
А зачем ее тянуть макросом ? Протяните мышкой...
...
Рейтинг: 0 / 0
05.10.2009, 14:55:40
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36232941
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
Shift+Ctrl+End выделяет диапазон до конца.
...
Рейтинг: 0 / 0
05.10.2009, 15:01:19
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233008
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
MaximuS_G 2 Sebastian ,
А зачем ее тянуть макросом ? Протяните мышкой...

Надо макросом.
Пожалуйста.
...
Рейтинг: 0 / 0
05.10.2009, 15:17:31
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233122
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
2 Sebastian ,
Код: plaintext
1.
2.
3.
Sub ZachemMakrosom()
Cells(Selection.Row, Selection.Column).Copy
Selection.PasteSpecial
End Sub
Выделяете диапазон протяжения вместе с ячейкой которую надо протягивать...
...
Рейтинг: 0 / 0
05.10.2009, 15:46:51
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233333
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
MaximuS_G 2 Sebastian ,
Код: plaintext
1.
2.
3.
Sub ZachemMakrosom()
Cells(Selection.Row, Selection.Column).Copy
Selection.PasteSpecial
End Sub
Выделяете диапазон протяжения вместе с ячейкой которую надо протягивать...

нет. вот я нашла макрос, но он для протаскивания по нескольким столбцам, а мне надо только по одному. Как его переделать?

Код: plaintext
1.
2.
3.
4.
Sub Macros1()
With Range("H7:J7")
.AutoFill Destination:=Range("H7:J" & .End(xlToLeft).End(xlDown).Row)
End With
End Sub
...
Рейтинг: 0 / 0
05.10.2009, 16:49:21
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233353
А я думаю что "Да&q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А я думаю что "Да&q
Гость
LOL
...
Рейтинг: 0 / 0
05.10.2009, 16:52:57
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233375
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
А я думаю что "Да&qLOL

ЛОЛ — (англ. lol — «Laugh[ing] out loud») — громко хохотать. Как правило, используется для выражения комплимента к чувству юмора у собеседника. Нередко используется в спорах, как выражение неуважения к аргументам оппонента.

Я - чайник.
...
Рейтинг: 0 / 0
05.10.2009, 16:59:35
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233382
Тоже чайник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тоже чайник
Гость
Если Вы чайник, как же Вы так категоричеки отвергли мой макрос ?
...
Рейтинг: 0 / 0
05.10.2009, 17:01:23
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233444
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Тоже чайникЕсли Вы чайник, как же Вы так категоричеки отвергли мой макрос ?

Потому, что для его использования надо предварительно выделять диапазон вручную, а мне это не подходит, т.к. этот макрос только часть другого, большего.
Извините за отнятое время.
...
Рейтинг: 0 / 0
05.10.2009, 17:20:00
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233468
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Что ж Вы так быстро обижаетесь ?...
надо предварительно выделять диапазон вручную, а мне это не подходит
Как Вы хотите указать программе диапазон протягивания ?
...
Рейтинг: 0 / 0
05.10.2009, 17:28:41
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233763
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
MaximuS_G,
Я не обижаюсь, просто у меня не получается. Я думала сделать по аналогии с тем образцом (.AutoFill Destination:=Range("H7:J" & .End(xlToLeft).End(xlDown).Row)), а не выходит, ну и вообще интересно как это можно сделать. А про ручные протяжки я знаю.

Очень нужен макрос для протяжки формулы до последней заполненной строки; строк м.б.разное количество,
Вот это и не получается
...
Рейтинг: 0 / 0
05.10.2009, 19:31:36
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36233883
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
2 Sebastian ,
Ясно, ну тогда хорошо... Давайте, опишите по-конкретней еще раз что Вам нужно сделать, и где ?
...
Рейтинг: 0 / 0
05.10.2009, 21:26:27
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36234008
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Минут 40 сидел пока разобрался с этим методом...
Оказывается вот здесь:
F1expression.AutoFill(Destination, Type)
expression (объект range) должен быть первой ячейкой в массиве destination

Вот код:
Код: plaintext
1.
2.
3.
4.
5.
Sub Razobralsya()
With Worksheets("1")
Set SourceRange = .Range(Cells( 6 ,  4 ), Cells( 6 ,  4 ))
SourceRange.AutoFill Destination:=.Range(Cells( 6 ,  4 ), Cells(Cells( 6 ,  4 ).End(xlToLeft).End(xlDown).Row,  4 ))
End With
End Sub

Заполняются все ячейки в колонке 4 (D) по количеству рядов в колонке 3...
Ну вообщем если что я думаю уже сами переделаете :)

Разбирался также как и Вы могли... Но Вам тоже спасибо за побудительную причину :)
...
Рейтинг: 0 / 0
05.10.2009, 23:35:39
| Ответить | Цитировать | Написать  
Протяжка формулы до последней заполненной строки
    #36236076
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
MaximuS_G, спасибо.
Разобралась. Всё получилось.
...
Рейтинг: 0 / 0
06.10.2009, 20:16:43
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Протяжка формулы до последней заполненной строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36233375&tid=2178992]:
 0ms
get settings:
 6ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 172ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 203ms
total:  458ms
созд. / загр.: 458ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]