Sub Rnd_NoDupes()  
     Const nMin& = 1  
     Const nMax& = 5  
     Dim iVal  
     Randomize  
     With CreateObject("Scripting.Dictionary")  
        Do While .Count < (nMax - nMin + 1)  
           iVal = .Item(Int((nMax - nMin + 1) * Rnd + nMin&))   'если обращаемся к словарю по не существующему ключу, то создаётся запись с этим ключом  
        Loop  
        ActiveCell.Resize(UBound(.Keys) + 1).Value = Application.WorksheetFunction.Transpose(.Keys)  
     End With  
End Sub

Я тоже прикинул такой алгоритм - перекладываем заданные числа в двумерный массив, одну размерность заполняем случайными числами, сортируем по этой размерности весь массив.  
Извлекаем размерность с заданными числами.

Еще вариант алгоритма:  
Заполняем массив по порядку.  
Затем перемешиваем массив случайным образом.  
Можно перемешивать и в момент заполнения массива:  
 
Sub www()  
Dim i&, j&, a&(), tmp&  
Const aMin = 1  
Const aMax = 5  
ReDim a(aMin To aMax)  
Randomize  
For i = aMin To aMax  
   a(i) = i  
   j = Int(Rnd * (i - aMin + 1)) + aMin  
   If j < i Then tmp = a(i): a(i) = a(j): a(j) = tmp  
Next i  
[a1].Resize(aMax - aMin + 1) = Application.Transpose(a)
End Sub

Я вот только не понял, а чем мой вариант со словарём хуже?

Просто я смотрю, что тут начинают предлагать более сложные варианты с массивами...  
Ну, и подумал, а вдруг я где-то что-то не заметил?

Мы просто обсуждаем разные алгоритмы решения одной задачи:-) Это есть хорошо.

последняя версия шпаргалки:  
 http://www.excelworld.ru/forum/3-313-5337-16-1304699753

сам начинал с ПК "Микроша", в школе на УПК - затянуло  
однокласник сам собирал Радио 86РК, Spectrum, Pentagon - вместе потом сидели и программировали  
 
Алексей, ссылки про словари и регулярные я знаю, но руки до них никак не доходят.  
 
А на вопрос "чем мой вариант со словарём хуже?" могу ответить только то, что он пытается генерировать случайные числа до тех пор, пока не заполнится весь словарь, допустимы многократные повторные генерации, у меня это происходит за один проход.  
Потестировал на 65536 ячеек, скорость отличается раз в 20, и то основная задержка при выводе на лист, без вывода на лист расличие в сотни раз (6,6 сек против 0,015 сек)

Я, честно, говоря, просто не вникал в то, как МСН отбирает уникальные...  
Сейчас краем глаза глянул и тоже не понял :(

добавил коментарии  
 
Sub www()  
Dim i&, j&, a&(), tmp&  
'i - счетчик  
'j - вспомогательная переменная  
'a() - массив значений  
'tmp - временная переменная для операции swap  
Const aMin = 1 'нижняя граница чисел  
Const aMax = 5 'верхняя граница чисел  
ReDim a(aMin To aMax) 'переопределяем массив от нижнего до верхнего  
Randomize 'инициализируем RND генератор  
For i = aMin To aMax 'пробегаем по массиву от нижнего до верхнего значения  
   a(i) = i 'присваиваем текущему значению массива значения счетчика  
   j = Int(Rnd * (i - aMin + 1)) + aMin 'генерируем число не превышающее i  
   If j < i Then tmp = a(i): a(i) = a(j): a(j) = tmp  
   'производим обмен значений a(i) и a(j) через переменную tmp, в QBasic для этик целей есть оператор SWAP  
   'если i равно j то обмен значений не производим, зачем зря работу делать  
Next i  
[a1].Resize(aMax - aMin + 1) = Application.Transpose(a) 'выводим на лист
End Sub