Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Функция которая ищет одринаковые данные.
 
Там делов-то 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, спасибо большое  :)  
Попробую покавырять, что бы в отдельной ячейке показывал ))
Функция которая ищет одринаковые данные.
 
Владимир, я показал пример. Мне еще не преслали екскл файл с данными. Это как пример что мне нужно  :)
Функция которая ищет одринаковые данные.
 
Вот пример..
Функция которая ищет одринаковые данные.
 
Это понятно.. Но мне нужно сравнить, которые вьехали но не выехали..  Их просто так сровнить сложно, т.к. Она могла вьехать как 3 авто а выехать уже как 20 или 23
Функция которая ищет одринаковые данные.
 
У меня проблема такая.. Нужно чтобы из двух столбцов вычеркнуло повторящейся данные, но не тут то было все просто.. Пример таблицы такой. Вьезд и выезд.. Допустим авто заехала 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
Страницы: 1
Наверх