Макрос поиска по ссылкам

[LuxuryArt]

Здравствуйте, Уважаемые программисты!
Хотелось бы обратиться к вам за помощью. Кто может подсказать как реализовать макрос для решения следующей задачи:
Существует столбец со ссылками(Примерно 15 000 строк) необходимо реализовать поиск дублей ДОМЕННОГО имени сайта. Тоесть, например, в списке из 10 000 ссылок есть 5 ссылок на различные страницы одного сайта(на одном домене) как реализовать поиск по всем строкам и выделение этих самых 5 ссылок красным либо другим цветом?

Благодарен за любую помощь! Спасибо большое!

[LuxuryArt]

Я так понимаю поиск необходимо реализовать по первым 10-12 символам в каждой строке. Так как первые 7 символов это: "http://"

[staniiislav]

без примера, наверное долго будете решать свою задачу

[Казанский]

Если ссылки единообразные, т.е.

http://site1.com/page5/
http://site2.ru/page2/thread.php

, то можно выполнить "текст по столбцам", разделитель "/", и найти повторяющиеся с помощью СЧЕТЕСЛИ по соотв. столбцу.

[LuxuryArt]

В качестве примера:
http://www.mobel.info/blog/nash-blog/1/
http://shmotio.com/component/option,...esc/task,list/
http://game.matrixhome.net/club/group/59/blog/1054/
http://www.usa-avto.com/65/
http://www.aut.aisorgsu.ru/communica...odr&id=481
http://www.coachinstitute.ru/blog/?p...p;post_id=1612
http://www.pgbooks.ru/pg_recommend/iq_blog/2314.php
http://www.bikecafe.ru/cafe/user/446/blog/195/
http://drimm.ru/blogs/rh/152/
http://www.lmshop.com.ua/lm.php?page...orks&id=10
http://yes.com.ru/blogs/gadgets/6027.php
http://www.aodb.ru/children/creative...79&print=Y
http://www.mir-judo.ru/blog/Anajik/252.php
http://www.moto29.ru/foto/50/1116.shtml?prn
http://MyScooter.ru/news/152/408/
http://www.gamemart.kz/Sony/detail.p...EMENT_ID=18539
http://ropeworker.ru/info/items/novo...rnoy-tekhniki/
http://www.xn--34-dlcefq3a4n.xn--p1a.../samik/137.php
http://www.mir-judo.ru/blog/Anajik/264.php
http://www.fredbel.ru/ru/photo/1/8/
http://www.fredbel.ru/ru/photo/7/9/

[LuxuryArt]

Казанский, Скажите, не могли бы вы более подробно описать сам процесс?

[Watcher_1]

Такой вариант пойдет?

Sub m()
 Dim myCol As New Collection
 On Error Resume Next
 i = 0
 Do
    i = i + 1
    DoEvents
    If Range("A" & i) = "" Then Exit Do
    myDom = Replace(Range("A" & i), "http://", "")
    If InStr(1, myDom, "/") > 0 Then myDom = Split(myDom, "/")(0)
    
    myCol.Add myDom, myDom
    
 Loop
 For i = 1 To myCol.Count
    Range("C" & i) = myCol(i)
 Next
End Sub