Задачка в екселе

есть функция ранг (категория статистические) - возвращает ранг числа в списке чисел; допустим у тебя числа расположены в диапазоне A1:A6, тогда в ячейку B1 вводишь функцию =РАНГ (A1;$A$1:$A$6) диапазон надо заморозить полностью, а ячейку A1 не замораживать, так как дальше будешь растягивать автозаполнением до ячейки B6. в итоге у тебя получится диапазон B1:B6 с рангами чисел из столбца A (самое маленькое число будет иметь ранг 6, следующее по величине будет иметь ранг 5 и т. д., а надо взять эти ранги в обратном порядке! поэтому сделай еще столбец C, и в нем вторично возьми ранги уже от столбца B, т. е. выполни описанные действия уже со столбцами B и C, в итоге столбцы A и С будут содержать нужный результат). да я Абрам Пупкин

Не знаю про формулы, но запустил "Разработчик" с пошаговой записью действий:
Постараюсь описать его действия:

Sub Макрос1()
'Начало макроса
' Макрос1 Макрос
'Присвоение имени макросу - Макрос1"

'Само тело макроса
Columns("A:A").Select
'Выделение столбца "А"

Selection.Copy
'Копирование выделения

Range("B1").Select
'Выделение столбца "В"

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Вставка скопированного в столбец "В"

Application.CutCopyMode = False
'Отмена чего-то там

ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B1:B6"), _
'Выделение в столбце "В" данных для сортировки

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'Установка вида сортировки
'Ниже - задание параметров сортировки
With ActiveWorkbook.Worksheets("Лист1").Sort
.SetRange Range("B1:B6")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Сама сотрировка - тыдыщ!
End Sub
'Вот и всё.

Непонятки будут - комменты есть, пиши.
----------------------------
Перечитал вопрос.
Блин-н, не на тот вопрос отвечал.
Я просто сортировал, а нужно присвоить номера...
С этим не ко мне, но к Абраму Пупкину и его компании, что в ВПР мастера.
Извини за украденное время.