Excel. Выбрать наименьшие числа

[0mega]

результат вычислений (желтая столбец) имеет такие значения: 21 6 16 9 14 10 22 13 15 10 16 10 6 ...
как заставить машину выбрать и записать N(8) наименьших чисел: 6 6 9 10 10 10 13 14 (выделено голубым)
P.S.
Способ алфавитной сортировки не приемлем, т.к. надо не только "посмотреть" , но еще и выполняться математические действия
Спасибо

[андей]

функция НАИМЕНЬШИЙ

[0mega]

Сообщение от андей

функция НАИМЕНЬШИЙ

Если Вы имеете в виду =МИН(A1:A13), то в результате получится ТОЛЬКО одно наименьшее число (в данном случае "6").
Мне необходимо выбрать Несколько (8) минимальных чисел, включая и повторы

[alyon_ka]

1. Копируете в соседний столбец
2. Сортируете скопированный диапазон (выделяете 8 первых значений)
3. Копируете отсортированный столбец (8 значений) с транспонированием в нужную строку.

[андей]

еще раз
функция НАИМЕНЬШИЙ
справка в мастере функций

[0mega]

Сообщение от андей

еще раз
функция НАИМЕНЬШИЙ
справка в мастере функций

еще раз

Сообщение от 0mega

как заставить машину выбрать и записать N(8) наименьших чисел:
P.S.
Способ алфавитной сортировки не приемлем, т.к. надо не только "посмотреть" , но еще и выполняться математические действия

1. машина должна выполнять эти действия автоматически (без ручного вмешательства)
2. Не будем вдаваться в подробности, но на моем Office весь справочный материал (в том числе и справка в мастере функций) предоставлен на английском языке

[alyon_ka]

написать макрос по этой задаче - 5 минут, только вопрос - какие "математические действия" должны быть еще произведены?

[0mega]

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

написать макрос по этой задаче - 5 минут, только вопрос - какие "математические действия" должны быть еще произведены?

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

[alyon_ka]

выделяете нужный диапазон, запускаете макрос - потом когда он запросит куда вставить результат - "наступите" на нужную ячейку, в этом макросе добавляется новый столбец - чтобы "не портить" исходные данные, его можно будет потом спокойно удалить - чтоб не мешал
Sub Макрос1()
Set rng = Selection
nsb = Selection.Column
nstr = Selection.Row
Columns(nsb).Insert ' вставляем новый столбец
rng.Copy Cells(nstr, nsb) ' в него вставляем данные из выделенного диапазона
Application.CutCopyMode = False
Selection.Sort Key1:=Columns(nsb), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal ' cортируем
Set kr = Application.InputBox(prompt:="Укажи те куда вставить результат", Type:=8) ' выбираем ячейку
nom_r = kr.Row
nom_с = kr.Column
' транспонируем
Range(Cells(nstr, nsb), Cells(nstr + 7, nsb)).Copy
Cells(nom_r, nom_с).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
End Sub

[0mega]

Благодарю Вас