Анализ массива данных

[MefRunner]

Вопрос вот в чем:
Имеется массив данных определенной размерности. Все данные имеют числовой формат. Есть ли какая-либо функция которая позволяет определить наименьшее (наибольшее) значение в данном массиве и соотвественно индес элемента массива которому оно (значение) собственно принадлежит.
Как вариант эту проблему можно решить перебором, но это немного неудобно при большом объеме данных.
Заранее благодарен.

[RayShade]

Стандартных функций поиска минимума и максимума нет.

[GSerg]

Ага.
Но для начала выясним вопрос о том, из какого приложения тот VBA, о котором идёт речь

[MefRunner]

Извиняюсь, что не конкретно написал. В общем речь идет об Экселе. Конкретно задача такова, есть столбец с данными, создается массив чисел
Dim Pl (1 to 76) as long
После этого необходимо найти наименьшее значение в данном массиве и произвести ряд действий с дланными представленными в строке содержащей наименьшее значение.
После этого переменной придается значение заведомо большее, чем любое значение массива.
Следом из массива вновь выбирается наименьшее значение и т.д.
В общих чертах вот так.

[GSerg]

Моно юзать стандартные функции экселя, которые ожидают диапазон данных, для обработки массива. То есть, к примеру, worksheetfunction.max(arr).
А вообще, фигнёй не страдай, массив отсортируй, и потом по порядку, от первого элемента...

[MefRunner]

Если имеется ввиду сортануть сами данные то к сожалению это делать нельзя, во-первых данные там меняются по столбцам, поэтому сортировка особого смысла не имеет.
А если имеется ввиду отсортировать сам массив, т.е. индексы массива по возрастанию или наоборот, то если честно я не в курсе как это можно сделать. Тем более тут имеется несколько взаимосвязанных массивов, и их сортировка мне личнопердставляется затруднительной.

[Raul]

речь идет об Экселе. Конкретно задача такова, есть столбец с данными, создается массив чисел.

Не понял ...
почему не устраивает то, что предлагал GSerg:

Моно юзать стандартные функции экселя, к примеру, worksheetfunction.max(arr)....

для начала примерно так:
worksheetfunction.ПОИСКПОЗ((МАКС(A1:A76)); A1:A76;0)

Raul

[MefRunner]

Да не то чтобы не устраивает, в принципе мне не важно как лишбы работало просто сейчас временно отвлекся и с понедельника начну пробовать как и что.
Спасибо за ответы.
Будут еще предложения милости просим