Сравнение массива чисел с числом

[cent]

Вообще несколько массивов, наименьший из которых - [5 х 75287520]
... допускал, что есть встроенные методы быстрее чем просто цикл

Кстати, а как тогда сравнить 2 одномерных массива , если есть варианты без цикла (может они будут более быстрыми)
Первый массив на 5 элементов, второй на 20.

[EducatedFool]

несколько массивов, наименьший из которых - [5 х 75287520]

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

Если даже каждый элемент массива занимает всего 1 байт (на самом деле больше), то этот наименьший массив отъедает 359 мегабайт памяти.

Объясните, зачем Вы оперируете таким огромным количеством данных (лучше с примером кода), - тогда, возможно, получится найти способ увеличить производительность программы в десятки раз...

Просто оптимизацией поиска в данном случае не обойтись.

[slan]

в иксель (не в VBA) формулы записываются просто..

a1:n555=13 - даст вам массив логических значений..

можно это использовать и в vba

ключевые слова: names, evaluate..

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

[EducatedFool]

a1:n555=13 - даст вам массив логических значений..
можно это использовать и в vba

А как это использовать в VBA?

На листе я понял как - формула массива.

А теперь мне в VBA надо узнать, есть ли в диапазоне [a1:b10] значение "1"

Какой оператор использовать?
чтобы получилось что-то вроде:

dim present as boolean, arr()
present = evaluate([a1:b10]=1) ' надо узнать, присутствует ли единица в диапазоне ячеек a1:b10
arr=([a1:b10]=1) ' надо получить массив логических значений

[Юнлинг]

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

На листе я понял как - формула массива.

А теперь мне в VBA надо узнать, есть ли в диапазоне [a1:b10] значение "1"

Какой оператор использовать?
чтобы получилось что-то вроде:

dim present as boolean, arr()
present = evaluate([a1:b10]=1) ' надо узнать, присутствует ли единица в диапазоне ячеек a1:b10
arr=([a1:b10]=1) ' надо получить массив логических значений

Уважаемый EducatedFool

Я попробывал так

=ЧАСТОТА(A1:B10;C1)-ЧАСТОТА(A1:D10;C1-1)

где в ячейке C1 число на которое нужно ориентироваться
и не просто есть но и количество совпадений. формула работает для целых чисел, но достаточно заменить C1-1 на C1-минимальное значение
и формула заработает и для нецелых чисел

Может быть я не прав

[SAS888]

Если нужно проверить, есть ли конкретное значение в диапазоне ячеек листа, то чем Вас не устраивает метод Find? Быстро и надежно.
Если же речь идет о проверке принадлежности элемента массиву, то без цикла не обойтись.
Вопрос: откуда берется массив? Есть вариант, при формировании массива, формировать еще и коллекцию (или словарь) уникальных значений. Нет ничего проще, проверить есть ли элемент в коллекции. Но при таких объемах???!!!

[slan]

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

А как это использовать в VBA?

На листе я понял как - формула массива.

А теперь мне в VBA надо узнать, есть ли в диапазоне [a1:b10] значение "1"

Какой оператор использовать?
чтобы получилось что-то вроде:

dim present as boolean, arr()
present = evaluate([a1:b10]=1) ' надо узнать, присутствует ли единица в диапазоне ячеек a1:b10
arr=([a1:b10]=1) ' надо получить массив логических значений

пожалуйста - см вложение - в коде листа две процедурки

Sub test()
    MsgBox [OR(A1:B10=1)]
End Sub
Sub test2()
On Error Resume Next
Names("aaaaaaaaaaa").Delete
Names.Add "aaaaaaaaaaa", "=A1:B10=1"
Dim arr
arr = [aaaaaaaaaaa]
Names("aaaaaaaaaaa").Delete
End Sub

[EducatedFool]

пожалуйста - см вложение - в коде листа две процедурки

Спасибо за пример кода. Узнал много нового про VBA Excel