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

[Hugo121]

Хитро.
Но букв меньше не стало, а "вырви мозг" прибавилось
Ну и вообще редко когда бывает, что нужно собирать от 1 до n, да ещё подряд. Обычно нерегулярно, вразбивку и иногда путая порядок

[staniiislav]

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

читаемость в разы лучше + меньше букв. Тоже так делаю.

p.s.: ппц абвгдейка. сломай глаза и вырви мозг

UPD

.Item(a(i, 1)) = .Item(a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6))
' -->
Key = JoinU(a, i)


Function JoinU(ByRef Data() As Variant, _
               ByVal Index As Long, _
               Optional ByVal Count As Byte = 6, _
               Optional Delimiter As String = "|") As String
    Dim Arr() As Variant
    Dim Column As Byte
    
    ReDim Arr(1 To Count)
    
    For Column = 1 To Count
        Arr(Column) = Data(Index, Column)
    Next
    
    JoinU = JOIN(Arr, Delimiter)
End Function

И как это работает? )))

[strannick]

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

Не вполне понял, зачем метка и зачем туда ходить, но не важно.
Если нужно уйти, если покрасили хоть одну, но сперва проверить все - то добавьте флаг.
Т.е.
dim flag as boolean
когда красим, то flag=true
после цикла по строке
if flag then goto metka
и не забыть вернуть где-то flag=false!

Ага, есть такое дело: flag=false перед циклом по строке, if flag then goto metka после цикла. Пробежал по всем ячейкам строки, нашел совпадения, закрасил шрифт, потом ушел на метку. Все работает. Hugo, спасибо!
Есть еще такая мысль - определять номер строки на листе Заказы, с которой нашлось совпадение. Ранее тут в отдельной теме пытался вставлять гиперссылку на совпавшую ячейку. Вариант был рабочий, но потом отказался от него в итоге. Так вот, если есть возможность в варианте работы сравнения со словарем определять хотя бы номер строки, в которой найдено совпадение, и прописывать его в какой-то ячейке напротив сравниваемой строки?

[Hugo121]

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

[Hugo121]

Поясню "на кошках" - есть например список ID с фамилиями и адресами (3 столбца или сколько угодно).
Берём весь список в массив, циклом по ID заносим их в словарь как ключ, номер строки как item.
Далее когда проверяем какой-то ID по словарю - при наличии в словаре сразу можем извлечь любое нужное значение строки найденного ID.

Sub tt()
    Dim a(), oDict As Object, i&, testID As Variant

    a = Cells(1).CurrentRegion.Value    'исходный массив - первый столбец ID, второй например фамилии, далее что угодно
    Set oDict = CreateObject("scripting.dictionary")
    For i = 1 To UBound(a)    'наполняем словарь
        oDict.Item(a(i, 1)) = i
    Next

    testID = 34    'проверяем наличие например такого ID
    If oDict.exists(testID) Then
        i = oDict.Item(testID)
        MsgBox a(i, 2)    'если есть, то получаем значение фамилии
    End If

End Sub

[nerv]

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

Но букв меньше не стало

я про

.Item(a(i, 1)) = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)									104
.Item(a(i, 1)) = Join(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)), "|")									87

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

а "вырви мозг" прибавилось

и работать медленней стало, за счет вызова функций + доп операций. Это был пример. Все зависит от нужд и фантазии.

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

Ну и вообще редко когда бывает, что нужно собирать от 1 до n, да ещё подряд. Обычно нерегулярно, вразбивку и иногда путая порядок

правильное замечание. For example:

Sub io()
    Dim Data() As Variant
    Dim Text As String
    
    Data = Range("A1:M10").Value
    
    Text = Join2(Data, 4, "|", 2, 5, 7, 1, 2, 3)
    
    MsgBox Text
End Sub


Function Join2(ByRef Data() As Variant, _
               ByVal Row As Long, _
               ByVal Delimiter As String, _
               ParamArray Columns() As Variant) As String
    Dim Index As Integer
    
    For Index = 0 To UBound(Columns)
        Columns(Index) = Data(Row, Columns(Index))
    Next
    
    Join2 = Join(Columns, Delimiter)
End Function

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

И как это работает? )))

что именно не понятно?

[staniiislav]

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

что именно не понятно?

как функцией пользоваться. Не могли бы вы пример приложить

[nerv]

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

как функцией пользоваться. Не могли бы вы пример приложить

пожалуйста

[strannick]

Сообщение от 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) 'вот тут получить номер строки с Листа2 в которой совпало
'i = oDict1.Item(a(i, k))
'i = a(i, k)
'MsgBox a(i, 2)
MsgBox "Строка " & i 'а так выдает номер строки сравниваемой ячейки
End If
End If
Next
End Sub

Закоментировал "танцы с бубном". Приложил пример именно такой, как в основной таблице. Определил в коде сравниваемую строку j=4 (по основному коду она переменная). Ткните носом, где я перевернул наоборот?

[Hugo121]

Ну для Гриши выпадает 4 - смотрим на второй лист - там 5. Это потому, что
a = sh1.Range("L2:Q" & iLastRow1).Value
т.е. массив начинается со второй строки.
Следовательно, если нужно знать положение в массиве - это i.
Если нужно знать положение на листе - это будет i+1.
Меня обычно положение на листе не интересует, т.к. всё сразу беру в массив и затем работаю только с ним.
В общем как и у Вас сейчас сделано.
Вот зачем Вам положение на листе?