Интуитивно чувствую, что может помочь  
http://ibay.narod.ru/other/CompareFiles.Find.rar  
или  
http://www.excelworld.ru/index/comparefiles_find/0-25  
Красить-переносить не может, но пометить строки, которые нужно красить-переносить - может.  
По пометкам сортируете и далее делаете что угодно.  
15 раз бесплатно!  
Был бы пример - можно было бы сказать точнее.

Я Вам вчера уже во второй теме написал, что CompareFiles.Find не подойдёт - после того, как посмотрел пример :)  
Если сперва вытянуть в отдельные столбцы эти номера - тогда подойдёт, но тогда можно обойтись и просто ВПР()

Очень нужна помощь, просто впозарез, я знаю что есть функцыя AS LIKE в которой можно задать выбор поиска по числам [#######]- число с семи символов, но как слепить это все незнаю
Как сделать чтоб он искал эти номера в столбце с произвольним текстом, выводил на отдельный лист совпадения и соответсвия цен?(((

Спасибо за подсказку. Но надо сделать макрос для коректного сравнения по примеру,если я стану изучать Бейсик, на это пойдут недели, а мне нужкн 1 макрос и оч нужен срочно(((

You wanna get so much, but ready to share so little:)

bod  
>>Хорошо,можно вытянуть номера макросом в отдельный столб    
Можно кодом для активного листа "СНАЧАЛА"  
Public Sub GetNumbers()  
   Dim pRegExp As Object, pSheet As Worksheet  
   Dim LRow As Long, vIn As Variant, vOut() As Variant  
   Dim iRow As Long, pItems As Object, sKey As String  
     
   Set pSheet = ActiveSheet  
   LRow = pSheet.Cells(pSheet.Rows.Count, 3).End(xlUp).Row  
   vIn = pSheet.Range(pSheet.Cells(1, 2), pSheet.Cells(LRow, 4)).Value  
   ReDim vOut(1 To LRow, 1 To 2)  
   Set pRegExp = CreateObject("VBScript.RegExp")  
   pRegExp.Global = True: pRegExp.Pattern = "№ ?\d+"  
     
   For iRow = 1 To LRow  
       sKey = Trim$(CStr(vIn(iRow, 1)))  
       If sKey <> "" Then  
           Set pItems = pRegExp.Execute(sKey)  
           If pItems.Count > 0 Then vOut(iRow, 1) = Replace(pItems(0).Value, " ", "")  
       End If  
       sKey = Trim$(CStr(vIn(iRow, 3)))  
       If sKey <> "" Then  
           Set pItems = pRegExp.Execute(sKey)  
           If pItems.Count > 0 Then vOut(iRow, 2) = Replace(pItems(0).Value, " ", "")  
       End If  
   Next iRow  
   pSheet.Range(pSheet.Cells(1, 5), pSheet.Cells(LRow, 6)).Value = vOut  
End Sub  
 
>>Я думаю нет ничего невозможного, но кто бы помог воплотить невозможное лучше и быстрее, чем это смогу я сам) И зачемь мне выдумывать велосипед, если он уже есть - есть же кто-то кто знает как решыть такую    
 
А зачем это кому-то решать за вас не самую интересную задачу, да ещё и просто так - ему за то платят вместо вас?

{quote}{login=Hugo}{date=27.11.2012 01:35}{thema=}{post}Интуитивно чувствую, что может помочь  
http://ibay.narod.ru/other/CompareFiles.Find.rar  
15 раз бесплатно!  
{/post}{/quote}  
По поводу этого файла пароль - 1234567, если кому надо открываете его через ОвпенОфис и весь код ваш, там же и страница с паролем.  
 
Да и еще, я не заставляю никого делать то, чего он не хочет, я просто прошу помощи.Если кто не хочет помочь - то это ваше право.Просто мне сказали что помочь могут только на форумах, что там уже решали похожее

bod  
Уважаемый, только не надо на совесть "давить".  
В первом приближении потребуется часа два на создание первой версии макроса. Часов 10 на доведение его до "ума" с учётом пожеланий и недоразумений, включая исправление ошибок кода.  
Вы готовы посвяить такое время для помощи кому-либо на каком-либо форуме и при условии, что вам это совсем даже не интересно?  
 
Так что, пишите anvg@mail333.com с файлом, в которм поболее строк, максимально приближенных к реальным, с чёткой формулировкой - что считать частичным совпадением по номерам № и номерам паспорта (включая на основании чего вы сделали равными паспорта  АВ123122 и 123122, а вдруг этот номер совпадает с УЛ 123122). И буджет конечно же. Завтра посмотрю, что можно сделать в этом направлении.

Большое спасибо всем кто обращает внимание на такого рода темы, ибо не знающим нужна помощь, а незнающим! И моя любимая фраза: Поступайте так, как хотите что б поступали  с вами. И что толку если ты поможешь багатому, а бедных обойдешь стороной, когда из-за богатых и страдают бедные  
 
:) Понислась родимая

Задача не такая простая, чтоб так пОходя за 5 минут сделать.  
И неинтересная, чтоб делать чисто из спортивного интереса.  
Вон на киберфоруме тоже как-то дело не движется...