Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
сравнение ячеек по первой строчке
 
#1
18.12.2012 20:47:12
Задача такая:    
нужно одну ячейку к примеру А1 сравнить со строчкой А2:А1000 (все значения в диапазоне А2:А1000 разные, хотя не всегда есть ячейка из диапазон А2:А1000 = А1)  
нужно, что бы при совпадении А1 с какой либо ячейкой в строчке А2:А1000 весь столбец начиня со второй строчке копировался, в столбец А2:А50 (все столбцы максимум 50 ячеек)  
Возможно ли это сделать...?  
плиз...
 
 
 
#2
18.12.2012 21:50:09
Непонятно:  
1. "...сравнить со СТРОЧКОЙ??? А2:А1000? Это, вообще-то диапазон и расположен он в столбце А со второй по 1000 строки.  
2. Надо скопировать ВЕСЬ СТОЛБЕЦ???? в диапазон из 1 столбца и 49 строк? со 2 по 50 строки? А2:А50?  
Как вы это себе представляете?  
 
Лучше пример дайте (желательно в формате 2003) вот как есть сейчас, вот такое условие выполняется - надо чтоб стало так.
 
 
 
#3
18.12.2012 22:41:57
Извините не так выразился  
1)  нужно найти совпадения А1 с первой строчкой не считая конечно же A1: (С1:ALN1 - 999 ячейка в строчке по счету)    
2) при совпадении ячеек, надо скопировать тот столбец  со 2 по 50 строчку, и вставить в A2:A50  
 
Прикрепил эксель,приметивный пример:
 
 
 
#4
18.12.2012 22:52:20
Скопировать? Или формула подойдет:  
=ГПР(A$1;B$1:ALN$50;СТРОКА())
excel 2010
 
 
 
#5
18.12.2012 22:57:37
Макросом. Макрос ищет по строке 1 слева направо со второй ячейки до конца заполненного диапазона первое совпадение со значением в ячейке А1. Если нашел - копирует диапазон в столбце с найденной ячейкой с 2 по 50 строки.  
 
Sub Lider()  
Dim lngI As Long  
For lngI = 2 To [b1].CurrentRegion.Columns.Count
If Cells(1, lngI) = [a1] Then
Cells(1, lngI).Offset(1, 0).Resize(49, 1).Copy [a2]
Exit Sub  
End If  
Next lngI  
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#6
19.12.2012 01:27:40
в файле формула массива.  
 
зы. если данные и результат расположены расположены именно так, как в примере, то можно и не массивную  
=ИНДЕКС($B$2:$ALN$50;;ПОИСКПОЗ($A$1;$B$1:$ALN$1;)) (лист1(2)
 
 
 
#7
19.12.2012 09:44:25
{quote}{login=Пытливый}{date=18.12.2012 10:57}{thema=}{post}Макросом. Макрос ищет по строке 1 слева направо со второй ячейки до конца заполненного диапазона первое совпадение со значением в ячейке А1. Если нашел - копирует диапазон в столбце с найденной ячейкой с 2 по 50 строки.  
 
Sub Lider()  
Dim lngI As Long  
For lngI = 2 To [b1].CurrentRegion.Columns.Count
If Cells(1, lngI) = [a1] Then
Cells(1, lngI).Offset(1, 0).Resize(49, 1).Copy [a2]
Exit Sub  
End If  
Next lngI  
End Sub{/post}{/quote}  
 Почему то макрос не работает...(
 
 
 
#8
19.12.2012 09:46:53
{quote}{login=Михаил С.}{date=19.12.2012 01:27}{thema=}{post}в файле формула массива.  
 
зы. если данные и результат расположены расположены именно так, как в примере, то можно и не массивную  
=ИНДЕКС($B$2:$ALN$50;;ПОИСКПОЗ($A$1;$B$1:$ALN$1;)) (лист1(2){/post}{/quote}  
Спасибо! эта формула решает проблемы, но хотелось бы макросом
 
 
 
#9
19.12.2012 09:50:33
{quote}{login=Nic70y}{date=18.12.2012 10:52}{thema=}{post}Скопировать? Или формула подойдет:  
=ГПР(A$1;B$1:ALN$50;СТРОКА()){/post}{/quote}  
 
Благодарю, вы тоже волшебник, такой не большой формулой оказывается это можно сделать. Еще вариант с макросом бы лучше подпшел,чтоб при не совпадении не высвечивались никакие символы типа:    
"#Н/Д"
 
 
 
#10
19.12.2012 11:11:26
{quote}{login=}{date=19.12.2012 09:50}{thema=Re: }{post}{quote}{login=Nic70y}{date=18.12.2012 10:52}{thema=}{post}Скопировать? Или формула подойдет...{/post}{/quote}  
 
... Еще вариант с макросом бы лучше подпшел...{/post}{/quote}  
Столы заказов:  
- Фриланс - http://www.planetaexcel.ru/contacts.php  
- Фриланс - http://www.excel-vba.ru/zakazy-na-razrabotku-programmy-makrosa-i-pr/  
- Фриланс - http://excelvba.ru/order/send  
- Фриланс - http://www.programmersforum.ru/forumdisplay.php?s=&daysprune=-1&f=29  
- Фриланс - http://www.cyberforum.ru/freelance/
 
 
 
#11
19.12.2012 11:37:57
"...макрос не работает..."  
 
В чем конкретно выражается? Повесил табличку "не работаю"? Уволился по собственному и встал на учет на бирже труда? Лежит в потолок плюет?  
В ваших данных строка 1 заполнена без разрывов?
 
 
 
#12
19.12.2012 11:44:01
Ну и где он не работает? На вашем же примере:
 
 
 
#13
19.12.2012 11:55:44
{quote}{login=Пытливый}{date=19.12.2012 11:44}{thema=}{post}Ну и где он не работает? На вашем же примере:{/post}{/quote}  
off Вот так и "покупают" - зачем себя утруждать: и макрос напишут, и в мой файл пристроят... ;) -30995-
 
 
 
#14
19.12.2012 12:18:02
{quote}{login=Пытливый}{date=19.12.2012 11:44}{thema=}{post}Ну и где он не работает? На вашем же примере:{/post}{/quote}  
 
Да, работает. Походу я не знал как его запускать.    
а еще ведь возможно сделать так чтоб, когда вставляешь в ячейку А1 новый текст, макрос срабатывал автоматически.  
строка 1 заполнена без разрывов  
Пожалуйста еще чуток и готово...
 
 
 
#15
19.12.2012 13:31:23
Вы ленитесь даже подписываться. не говоря уже о том, чтобы поискать: "запустить макрос по изменению ячейки"
 
 
 
Страницы: 1
Наверх