Поиск в массиве

[maksim_serg]

спрошу по другому:
как в диапазоне "А1:А34700" (или массиве m(1 to 34700)) найти максимально быстро 1 значение

[EducatedFool]

если нужно обработать таким образом порядка 5000 данных - 4 с половиной минуты

Вот с этого и надо было начинать...

Если поиск надо выполнять 5000 раз - то применяется другой метод:
диапазон ячеек считывается в массив, и средствами VBA выполняется поиск в массиве

PS: Надо начинать с чтения правил раздела - там сказано про необходимость примера в виде файла Excel с подробным описание задачи.
Был бы пример - давно бы получили свой макрос.

[maksim_serg]

просто толкните меня в нужную сторону!

dim v(1 to 5000) as string '  массив данных, которые нужно искать
dim p(1 to 34700) as string ' массив данных среди которых надо искать
dim s() as string ' динамический массив в который надо записывать значения из массива v() если они были найдены в массиве p()
n = 1
For i = 1 To 5000
    For j = 1 To 34700
        If v(i) = p(j) Then s(n) = v(i): n = n + 1: Exit For
    Next j
Next i

[EducatedFool]

просто толкните меня в нужную сторону!

Могу толкнуть только в поиск по разделу - там есть то, что вы ищете:
http://programmersforum.ru/showthread.php?t=61177

На мой взгляд, самым быстрым будет этот способ:

Sub test()
    Dim v(1 To 5000) As String    '  массив данных, которые нужно искать
    Dim p(1 To 34700) As String    ' массив данных среди которых надо искать
    Dim s() As String    ' динамический массив в который надо записывать значения
    '                      из массива v() если они были найдены в массиве p()
    n = 1
    ДлиннаяСтрока = "%" & Join(p, "%") & "%"
    For i = 1 To 5000
        If ДлиннаяСтрока Like "*%" & v(i) & "%*" Then
            s(n) = v(i): n = n + 1
        End If
    Next i
End Sub