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

[staniiislav]

сейчам проверим

[Hugo121]

Проверил:
0.296875
0.34375
3
3.609375
0.3125
0.34375

Конкатенация выиграла!

[staniiislav]

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

один японский перец всегда вместо этого

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

пишет так

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

Стас, можете проверить? Просто для интереса. Может действительно так лучше?

так работает:

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

но по времени вроде абсолютно одинаково... может на больших массивах будет чем-то выигрывать, хотя сомневаюсь

[staniiislav]

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

0,031
0,032
0,016

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

0,032
0,016
0,015

[Hugo121]

А если так?

Sub tt()

a = [a1:f35]
tm = Timer

For x = 1 To 1000
For i = 1 To 35
t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
Next
Next
Debug.Print Timer - tm

tm = Timer
For x = 1 To 1000
For i = 1 To 35
t = Join(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)), "|")
Next
Next
Debug.Print Timer - tm


End Sub

[staniiislav]

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

А если так?

Sub tt()

a = [a1:f35]
tm = Timer

For x = 1 To 1000
For i = 1 To 35
t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
Next
Next
Debug.Print Timer - tm

tm = Timer
For x = 1 To 1000
For i = 1 To 35
t = Join(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)), "|")
Next
Next
Debug.Print Timer - tm


End Sub

на чу-чу, но выигрует

t = Join(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)), "|")

[staniiislav]

вот еще примерчик:

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub pokraska()
Dim a, b, i&, n&, u, sh As Worksheet, t
t = GetTickCount
Set sh = Sheets("Заказы")
    a = Range("F1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Value
With CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(a)
        '.Item(a(i, 1)) = .Item(a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6))
        .Item(a(i, 1)) = .Item(Join(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)), "|"))
    Next i

    a = sh.Range("F1:K" & sh.Cells(Rows.Count, 1).End(xlUp).Row).Value
    
    ReDim b(1 To UBound(a), 1 To 1)
    For i = 2 To UBound(a)
    u = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
        If .Exists(u) Then b(i, 1) = 1 ': sh.Range(sh.Cells(i, 1), sh.Cells(i, 11)).Interior.ColorIndex = 37
    Next i
End With
sh.Range("L1").Resize(UBound(b), 1).Value = b
sh.Range("L1:L" & UBound(b)).SpecialCells(xlCellTypeConstants, 1).EntireRow.Interior.ColorIndex = 37
sh.Range("L1:L" & UBound(b)).ClearContents
Debug.Print (GetTickCount - t) / 1000
End Sub

Вопрос, как SpecialCells можно использовать для выделенного диапазона, чтобы избавится от EntireRow?

[Hugo121]

Так зачем избавляться? Не красит весь нужный диапазон? Или красит замного?
В файле не проверял, но если нужно ограничить - пробуйте intersect(нужный диапазон, specialcells...entirerow)

[SAS888]

...как SpecialCells можно использовать для выделенного диапазона, чтобы избавится от EntireRow?

Использовать

 Intersect(Selection, ...)...

[nilem]

тоже попробовал с Join(Array(...
все-таки просто конкатенация чуть-чуть, но быстрее
и вот с этим так и не понял

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

мне кажется, правильнее (и немного быстрее) так

.Item(a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)) = Empty

А еще здесь можно использовать CopyMemory. Так ведь?
Когда начнем изучать?