1. Формування рядка d:

Клі­ти­ни B65:K65  =E14 – <Ctrl + Enter>

2. Формування рядка d':

Клі­ти­ни B65:K65 – <Ctrl + C> (де C – copy)

Клі­ти­на B67  – Правка, Специальная вставка... Вставить: значения <OK>

3. Сортування рядка d':

Клі­ти­ни B67:K67  Данные, Сортировка:

1. Сортировать по: убыванию

2. Идентифицировать поля по: отсутствует

3. Параметры ...

4. Сортировать по первому ключу: не производится

5. Сортировать: столбцы диапазона

6. <OK>

Тексти процедур і функцій – для середовища Visual Basic

' Сортування одновимірного масиву методом перестановок

Sub Sort_P(A, n)

Dim ap As Single ' Ініціалізація індикатора перестановок

Dim i, p As Byte

p =1

While p =1 ' Аналіз значення індикатора перестановок

p =0

For i =1 To n - 1

If A(i) < A(i + 1) Then

ap =A(i): A(i) =A(i + 1): A(i + 1) =ap

p =1

End If

Next i

Wend

End Sub

' Сортування одновимірного масиву методом пошуку найменшого елемента

Sub Sort_M(A, n)

Dim min As Single

Dim i, p As Byte

For i =1 To n - 1

min =A(i): p =i

For j =i + 1 To n ' Пошук мінімального значення серед елементів

If min > A(j) Then

min =A(j): p =j

End If

Next j

A(p) =A(i): A(i) =min

Next i

End Sub

Sub Zavd_6_11() ' Сортування рядка за спаданням значень його елементів

Dim j, col, ozn As Byte

Dim A_mas() As Single

Set myCELL =Application.InputBox( _

prompt:="Виберіть вхідний рядок даних (без заголовка)", _

Type:=8)

Set myCELL2 =Application.InputBox( _

prompt:="Виберіть клітинку, з якої будуть виводитися отримані результати", _

Type:=8)

ozn =Application.InputBox("Введіть ознаку сортування: 1 - за спаданням; 2 - за зростанням")

col =myCELL.Columns.Count ' Обчислення кількості стовпців

ReDim A_mas(1 To col)

'Занесення введених елементів у одновимірний масив

For j =1 To col

A_mas(j) =myCELL.Columns(j).Cells(1)

Next j

If ozn =1 Then ' Сорт. масиву за спаданням

' Сортування одновимірного масиву методом перестановок

Call Sort_P(A_mas, col)

Else ' Сорт. масиву за зростанням

' Сортування одновимірного масиву методом пошуку найменшого елемента

Call Sort_M(A_mas, row)

End If

' Виведених елементів одновимірного масиву

For j =1 To col

myCELL2.Offset(0, j - 1).Value =A_mas(j)

Next j

myCELL2.Offset(1, 0).Value ="Кінець розрахунку"

End Sub

Сортування стовпця за зростанням значень його елементів

	B	C	D	E	F	G	H	I	J	K
76	D		D'
77	1,08		-4,91
78	-4,91		1,08
79	31,34		31,34
80	324,23		33,37
81	2365,17		187,39
82	6003,80		324,23
83	4236,29		1111,89
84	1111,89		2365,17
85	187,39		4236,29
86	33,37		6003,80

Порядок виконання дій – для середовища Excel