Функция которая ищет одринаковые данные.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Andrej

Дата: Среда, 29.01.2014, 11:43 | Сообщение № 1

Группа: Гости

У меня проблема такая.. Нужно чтобы из двух столбцов вычеркнуло повторящейся данные, но не тут то было все просто.. Пример таблицы такой. Вьезд и выезд.. Допустим авто заехала 3 раза а выехала 2.. тоесть она еще там. И вычеркнуло только со списка "Вьезд" только 2 количество и чтобы я видел что она еще там..
Пример...

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

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

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

Вот таким образом мне надо сделать! Вручную там я умру... 100000+ строк
Напишите код, жуть как нужно

Ответить

SkyPro

Дата: Среда, 29.01.2014, 11:45 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Отправьте на почту файл.

skypro1111@gmail.com

Ответить

AndreTM

Дата: Среда, 29.01.2014, 12:10 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Я бы заодно сразу посоветовал сделать "правильную" таблицу учёта - типа ([дата/время], [событие], [номер машины], ...). И ориентироваться по ней.

Если же это разовая переделка уже существующей таблицы - то непонятно только одно, какие там стопицот строк? Тут уж точно, надо смотреть, что это вообще за таблица...

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Hugo

Дата: Среда, 29.01.2014, 12:16 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

А я уже на планете сделал...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

SkyPro

Дата: Среда, 29.01.2014, 12:18 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Hugo, не вопрос. Не претендую тогда.
Не видел, что тема сюда перекочевала. Думал, что новая.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 29.01.2014, 12:22

Ответить

Hugo

Дата: Среда, 29.01.2014, 12:33 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Я тоже тут не увидел... Там делов-то 5 строк по такому примеру...

Вот, раз обещал, то теперь 5 :
[vba]

Код

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

[/vba]