Страницы: 1
RSS
Как быстро протянуть формулу
 
Господа!  
Подскажите пожалуйста,Как быстро протянуть формулу  
по ячейкам и просто выделить их, если ячеек около 20000?
 
Вы не уточнили Вам посоветовать, как это быстро сделать руками или макросом?
 
Можно так и так.
 
Макросом так, вот 2 варианта  
 
Sub Макрос1()  
   Range("A1").Formula = "=B1+C1"  
   Range("A1:A2000").FillDown  
End Sub  
 
 
Sub Макрос2()  
   With Range("A1:A2000").Formula = "=B1+C1"  
End Sub  
 
Руками сейчас напишу )
 
Допустим в ячейку А1 у нас есть формула (любая), и нам её надо протянуть вниз до ячейка А2000  
 
1) попируем ячейку А1 (с формулой)  
2) щёлкаем в поле над ячейкой А1 (там где мы вводим имя для диапазона)  
3) вводим в это окошко А2000 и нажимаем Enter  
- курсор смещается до ячейка А2000  
4) нажимаем сочетание клавишь Ctrl+Shift+стрелочка вверх  
5) меню Правка - Специальная вставка - Формулы    
- или маленькая стрелочка на значке "жёлтенькая папка" на панели инструментво и выпавшем меню выбрать "Формулы";  
- или правой клавишей на выделенном диапазоне - меню Специальная вставка - Формулы - ОК
 
Сейчас засёк сколько у меня уйдёт времени протянуть формулу с А1 до А2000 - порядка 9-10 сек.  
 
P.S. Ещё один вариант. У меня на мышке не колесо, а джостик, т.е. мне его не надо крутить, а просто надо потянуть на себя и подержать чуть-чуть и я сразу смещаюсь вниз по листу, т.е. строки быстро поднимаются вверх и соответственно если вовремя отпустить джостик, выделить ячейку А2000 и нажать Enter, то формула сразу скопируется в выделенный диапазон (если перед этим скопировать ячейку с формулой).
 
Добавлю свои 5 копеек.  
Пусть в А1:А2000 некоторые данные.  
Вводим в В1 формулу, которую нужно протянуть до В2000.  
подводим к правому нижнему углу мышь, указатель меняется на плюсик, но не тянем (это все знают) а дабл клик. Вуаля, весь диапазон до В2000 заполнен.
 
))) ну, это да)) но с условием, что слева у вас  
1) есть данные;  
2) эти данные сплошные (без пробелов)
 
{quote}{login=Pavel55}{date=09.09.2008 05:01}{thema=}{post}))) ну, это да)) но с условием, что слева у вас  
1) есть данные;  
2) эти данные сплошные (без пробелов){/post}{/quote}А я разве фразой "Пусть в А1:А2000 некоторые данные." этого не указал? Потом, обычно данные все же есть. Я не знаю как другие, но я вношу данные, а только потом пишу формулу, а не наоборот. А то формулу без данных не поймешь - правильно написал или нет.
 
{quote}{login=Лузер™}{date=09.09.2008 04:59}{thema=}{post}Добавлю свои 5 копеек.  
Пусть в А1:А2000 некоторые данные.  
Вводим в В1 формулу, которую нужно протянуть до В2000.  
подводим к правому нижнему углу мышь, указатель меняется на плюсик, но не тянем (это все знают) а дабл клик. Вуаля, весь диапазон до В2000 заполнен.{/post}{/quote}  
 
Спасибо!  
Самый простой и эффективный вариант!
 
{quote}{login=Pavel55}{date=09.09.2008 05:01}{/quote}  
И вам спасибо Павел!
 
Тогда и моя «полушка», может быть пригодится.    
Быстро выделить диапазон можно так: выбрать верхнюю левую ячейку выделяемого диапазона, в поле для имен диапазона (над ячейкой А1) прописать адрес нижней правой ячейки, а дальше Shift+Enter.  
С уважением, Александр.
 
Здравствуйте,Уважаемые Специалисты!:)  
Прошу Вас подсказать..простой макрос,но нигде на форуме не нашёл...  
Как скопировать формулу из нужной ячейки и вставить её в выделенный диапазон?  
Заранее ОГРОМНОЕ СПАСИБО за ответ:)
 
Допустим, нужная ячейка это В1. Тогда  
 
Range("B1").Copy Selection  
 
Или еще короче  
 
[B1].Copy Selection
 
Спасибо огромное,Prist!:)  
Так всё просто:)  
А Вам не сложно ответить на этот вопрос здесь?:)  
 
http://www.planetaexcel.ru/forum.php/index.php?thread_id=14261  
 
Заранее признателен:)
 
Здравствуйте! Уважаемые модераторы!  
Удалите пожалуйста мои это и предыдущее сообщение!  
Спасибо огромное ВАМ!
Страницы: 1
Читают тему
Наверх