Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Функция которая ищет одринаковые данные.
 
#1
29.01.2014 11:40:38
У меня проблема такая.. Нужно чтобы из двух столбцов вычеркнуло повторящейся данные, но не тут то было все просто.. Пример таблицы такой. Вьезд и выезд.. Допустим авто заехала 3 раза а выехала 2.. тоесть она еще там. И вычеркнуло только со списка "Вьезд" только 2 количество и чтобы я видел что она еще там..
Пример...

Вьезд / Выезд
АА1234 АА1234
АА1234 АА1234 Тоесть это вычеркнуто а 3яя остается..
АА1234 Эту не вычеркивает так как она еще не выехала..

Но номера могут быть в перемешку типо

АА1234 АА1234
ВФ4234 ло539
о883 а845
аы382 ВФ4234


Вот таким образом мне надо сделать! Вручную там я умру... 100000+ строк
Изменено: ePro - 29.01.2014 22:55:01
 
 
 
#2
29.01.2014 11:46:07
эта функция называется фильтр.
з.ы. малек поспешил)
Изменено: Dima S - 29.01.2014 11:55:35
 
 
 
#3
29.01.2014 11:56:36
Это понятно.. Но мне нужно сравнить, которые вьехали но не выехали..  Их просто так сровнить сложно, т.к. Она могла вьехать как 3 авто а выехать уже как 20 или 23
 
 
 
#4
29.01.2014 12:02:41
Кросс:
http://www.excelworld.ru/forum/10-8645-1
ePro, здесь тоже есть стол заказов:
http://www.planetaexcel.ru/forum/?PAGE_NAME=list&FID=7
Я сам - дурнее всякого примера! ...
 
 
 
#5
29.01.2014 12:02:54
Цикл по одному столбцу, поиск во втором, удаление найденного.
Ну или можно на словаре сделать.
Пример где?
 
 
 
#6
29.01.2014 12:12:22
Вот - если очень хочется, то можно ещё и зачеркнуть. Но изменить значение обязательно!

Код
Sub tt()
    Dim cc As Range, r As Range

    For Each cc In [a1].CurrentRegion.Columns(1).Cells
        Set r = [a1].CurrentRegion.Columns(2).Find(cc, , xlValues, xlWhole)
        If Not r Is Nothing Then
            cc.Value = cc.Value & " - OK"
            r.Value = r.Value & " - OK"
        End If
    Next
End Sub
 
 
 
#7
29.01.2014 12:13:33
Цитата
Пример где?
Тоже жду.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#8
29.01.2014 12:38:52
Вот пример..
 
 
 
#9
29.01.2014 12:41:54
Нам Вашу картинку самим перерисовывать? Для чего файл-то создали?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
29.01.2014 12:44:45
Владимир, я показал пример. Мне еще не преслали екскл файл с данными. Это как пример что мне нужно  :)
 
 
 
#11
29.01.2014 12:47:32
Так мой код не сделает.
Вообще конечно можно и так - но тогда это уже думаю в "работу", кода больше.
 
 
 
#12
29.01.2014 12:48:26
Вы его сами можете нарисовать в Экселе и выложить пример.xls(xlsx) уже сюда?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#13
29.01.2014 12:50:20
Там делов-то 5 строк по такому примеру...

Код
Sub tt(): Dim cc As Range, r As Range
    With [a1].CurrentRegion: For Each cc In .Columns(1).Cells
            Set r = .Columns(2).Find(cc, , xlValues, xlWhole)
            If Not r Is Nothing Then cc.Value = cc.Value & " - OK": r.Value = r.Value & " - OK"
        Next: End With: End Sub
Воо. то что нужно.. Hugo, спасибо большое  :)  
Попробую покавырять, что бы в отдельной ячейке показывал ))
 
 
 
#14
29.01.2014 12:52:52
Если будете выводить в отдельную - то при поиске нужно эту отдельную проверять и запускать поиск дальше, если там уже есть метка. Ну дерзайте...
 
 
 
#15
29.01.2014 13:10:22
Цитата
я показал пример. Мне еще не преслали екскл файл с данными.
Но скрин Вы с чего-то ведь делали?
И свой код оформляйте тегом.
 
 
 
#16
29.01.2014 14:11:10
Цитата
Попробую покавырять, что бы в отдельной ячейке показывал
Какой смысл иметь код, но не уметь им управлять.
Проще и понятней:
=ЕСЛИ(СЧЁТЕСЛИ($A$2:A2;A2)>ИНДЕКС(СЧЁТЕСЛИ($B$2:$B$15;$A$2:$A$15);ПОИСКПОЗ(A2;$A$2:$A$15;));"Не выехал";"Выехал")
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
Страницы: 1
Наверх