Сравнение диапазонов с пометкой совпадений

[strannick]

В основном коде при совпадении в 5-ю ячейку сравниваемой строки прописывается комментарий "не обработан, совпадение с Базой" (База - это типа Лист2 в примере). А надо "... совпадение со строкой .... Базы", чтобы визуально потом быстро найти строку, с которой совпало, поправить чего надо и вручную обработать. Бывает выскакивают двойники или еще какая-то фигня с новыми данными. Вообще-то в идеале прописать прямо гиперссылку на строку, с которой совпало, где-то там, за пределами таблицы на Листе1, чтоб не искать, а можно было кликнуть и перейти прямо на эту строку. В оригинале это вообще две разных книги.

[Hugo121]

Sub Stroka()
    Dim sh As Worksheet, sh1 As Worksheet
    Dim iLastRow As Long, iLastRow1 As Long, i As Long, j As Long, k As Long
    Dim a(), oDict1 As Object

    Set sh = Sheets("Лист1")
    Set sh1 = Sheets("Лист2")

    iLastRow1 = sh1.Cells(Rows.Count, 16).End(xlUp).Row

    a = sh1.Range("L2:Q" & iLastRow1).Value    'массив в словарь
    Set oDict1 = CreateObject("scripting.dictionary")
    For i = 1 To UBound(a)    'наполняем словарь
        oDict1.Item(a(i, 1)) = i
    Next

    For k = 12 To 17    'цикл по сравниваемым ячейкам
        j = 4    'сравниваем конкретную строку Листа1
        u = sh.Cells(j, k).Value    'значение ячейки которую сравниваем
        If u <> "" Then    'чтоб не выдавало совпадений по пустым
            If oDict1.exists(u) Then
                i = oDict1.Item(u)
                sh.Cells(j, 5).Hyperlinks.Add sh.Cells(j, 5), _
                                              "", "'" & Sheets("Лист2").Name & "'" & "!L" & i + 1, , "не обработан, совпадение со строкой " & i + 1 & " Базы"

            End If
        End If
    Next

End Sub

[strannick]

Класс!!!! Я когда в прошлом варианте пытался вставлять гиперссылку не на строку, а на совпавшую ячейку, столкнулся с ситуацией, которая и сейчас в принципе возможна:

Но если таких значений будет несколько одинаковых, то это нужно учесть - тогда в Item можно собирать массив/коллекцию этих номеров, или оставлять первый или последний номер, смотря по задаче.

Сравнение по сути идет одномерного массива 1х6 с двумерным iх6 поячеечно. Ячейки сравниваемого массива могут совпасть с Базой в разных строках\столбцах. Сегодня Вася сделал заказ от ООО ККК, через неделю от того же ООО ККК заказ сделал Сергей Александрович. Или наоборот - совпало Имя Вася, но вообще без Названия фирмы, но с тем же e-mail. Собрать в массив\коллекцию номеров строк по совпадениям, я так понимаю, не проблема, а вот выводить по каждой из них гиперссылку - тут вряд ли получится. Может, собрав номера совпавших строк, писать в ячейку комментарий "....совпадение с Базой, строки №№ 2, 5, 7", а гиперссылку выводить в другую ячейку на последнее найденное совпадение?

И, кстати, про "кошек". Они тут сидят и уверяют меня, что

For i = 1 To UBound(a)    'наполняем словарь
       oDict1.Item(a(i, 1)) = i
    Next

добавляют в словарь только ячейки по первому столбцу массива a (столбец L в примере), а остальные (с M по Q) остаются за бортом словаря?

[Hugo121]

Да, собрать в коллекцию не проблема - просто кладём в итем новую коллекцию и добавляем в неё номера строк.
Извлечь затем их в коммент тоже не проблема.
Ну а две ссылки сделать конечно не получится. Как вариант - сделать выплывающий листбокс с этими адресами, при клике на выбранную строку туда и переходить.
Но кода будет сравнительно много, мне этим заниматься некогда - поищите примеры, по частям такое найти можно...

По "кошкам" - как напишем, так и будет. Если проверяем одну ячейку строки - запоминаем одну. Добавим цикл по строке - будем добавлять что добавим

[strannick]

Сообщение от Hugo121

По "кошкам" - как напишем, так и будет. Если проверяем одну ячейку строки - запоминаем одну. Добавим цикл по строке - будем добавлять что добавим

Конечно, надо все ячейки строки. Тут я в словарях и путаюсь. Если пишем:

a = sh1.Range("L2:Q" & iLastRow1).Value
For Each y In a
       If Len(y) Then oDict1.Item(y) = 0& 
   Next

то в словарь заносятся все ячейки массива а, но без признака строки. Как скрестить одно с другим? Не делать же прогоны отдельно по каждому столбцу. Или надо организовывать такой цикл?

Как вариант - сделать выплывающий листбокс с этими адресами

Та это уже слишком. Остановлюсь на варианте вставки гиперссылки на последнее найденное совпадение.
А вот по поводу

кладём в итем новую коллекцию и добавляем в неё номера строк

- это если цикл по столбцам делать (вопрос выше)?

[Hugo121]

Делать цикл по столбцам и вложенный по строке.
По времени думаю это не будет отличаться от for each y.
Словарь с коллекцией был тут: http://www.programmersforum.ru/showthread.php?t=210517
Смотреть http://www.programmersforum.ru/showp...0&postcount=20

[strannick]

Все, сделал. Получилось вот так:

b = sh5.Range("L2:Q" & iLastRow1).Value    'массив, с ячейками которого сравниваются
    Set oDict2 = CreateObject("scripting.dictionary")
    For z = 1 To UBound(b)    'наполняем словарь
    For zz = 1 To 6
        oDict2.Item(b(z, zz)) = z
    Next
    Next

Встроил в основной код, все работает. Всем еще раз спасибо. Основной вопрос решен. Но появилась проблема со вставкой гиперссылки на совпавшую строку. Тут продолжать не буду, вынесу в отдельную тему.