vplookup или find ??

[Hugo121]

Там выше я мерил скорость 5800х5400 значений.
Теперь померил 5800х10 значений - результат противоположный, массивы в 5 раз быстрее:
0.171875
0.171875
0.03125
0.03125

[sn00p]

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

Там выше я мерил скорость 5800х5400 значений.
Теперь померил 5800х10 значений - результат противоположный, массивы в 5 раз быстрее:
0.171875
0.171875
0.03125
0.03125

какието чудеса у вас быстродействия)
\у меня код вот какой

sekkk = ActiveWorkbook.Worksheets("list1").Range("a1:k17784")
sekkk2 = ActiveWorkbook.Worksheets("list2").Range("b1:c12678")

For i = 2 To UBound(sekkk, 1)
For ii = 1 To UBound(sekkk2, 1)

    If sekkk(i, 2) = sekkk2(ii, 1) Then sekkk(i, 6) = sekkk2(ii, 2): Exit For
Next ii, i
ActiveWorkbook.Worksheets("list1").Range("a1").Resize(UBound(sekkk, 1), UBound(sekkk, 2)).Value = sekkk

порядка 15-20 секунд крутит
или это у меня не массивы??

хотя все равно быстрее чем vplookup или find в разыыыы

[sn00p]

sekkk = ActiveWorkbook.Worksheets("ñëè÷èòåëüíàÿ").Range("a1:k" & nLastrow2).Value
sekkk2 = ActiveWorkbook.Worksheets("êîëSAP").Range("b1:c" & nLastrow).Value

For i = 2 To UBound(sekkk, 1)
For ii = 1 To UBound(sekkk2, 1)
    If sekkk(i, 2) = sekkk2(ii, 1) Then sekkk(i, 6) = sekkk2(ii, 2): Exit For
Next ii, i
ActiveWorkbook.Worksheets("ñëè÷èòåëüíàÿ").Range("a1").Resize(UBound(sekkk, 1), UBound(sekkk, 2)).Value = sekkk

в 2 раза быстрее делает)) порядка 8 секунд

[Hugo121]

Не знаю... Вот на чистом листе гонял:

Sub tt()
tm = Timer
sekkk = ActiveWorkbook.Worksheets(1).Range("a1:k17784")
sekkk2 = ActiveWorkbook.Worksheets(2).Range("b1:c12678")

For i = 2 To UBound(sekkk, 1)
For ii = 1 To UBound(sekkk2, 1)

    If sekkk(i, 2) = sekkk2(ii, 1) Then sekkk(i, 6) = sekkk2(ii, 2): Exit For
Next ii, i
ActiveWorkbook.Worksheets(1).Range("a1").Resize(UBound(sekkk, 1), UBound(sekkk, 2)).Value = sekkk
Debug.Print Timer - tm
End Sub

Время в секундах
0.171875
0.171875
0.171875

Хотя да, на чистом листе сразу выходит из цикла...
С заполненным sekkk(i, 2) оба цикла полностью пробежал за 99 секунд.

[sn00p]

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

Не знаю... Вот на чистом листе гонял:

Sub tt()
tm = Timer
sekkk = ActiveWorkbook.Worksheets(1).Range("a1:k17784")
sekkk2 = ActiveWorkbook.Worksheets(2).Range("b1:c12678")

For i = 2 To UBound(sekkk, 1)
For ii = 1 To UBound(sekkk2, 1)

    If sekkk(i, 2) = sekkk2(ii, 1) Then sekkk(i, 6) = sekkk2(ii, 2): Exit For
Next ii, i
ActiveWorkbook.Worksheets(1).Range("a1").Resize(UBound(sekkk, 1), UBound(sekkk, 2)).Value = sekkk
Debug.Print Timer - tm
End Sub

Время в секундах
0.171875
0.171875
0.171875

Хотя да, на чистом листе сразу выходит из цикла...
С заполненным sekkk(i, 2) оба цикла полностью пробежал за 99 секунд.

итого)
практически все можно реализовать ч\з перебор в массиве))
в топку все внутренние ф-ии = они тормозные!

[SAS888]

практически все можно реализовать ч\з перебор в массиве))
в топку все внутренние ф-ии = они тормозные!

Не горячитесь. ИМХО это не совсем так.
В VBA есть функции и методы, которых просто-напросто нет в VB. Например, для работы со свойствами ячеек, диапазонами и т.п.
А попробуйте, например, состязаться с Excel-ем в скорости сортировки таблицы, расположенной на рабочем листе, в которой много столбцов...
Могу привести еще много примеров. Т.е. к решению конкретной задачи нужно подходить индивидуально!