Отбор персонажей по рейтингу

s1910197 пишет:

У каждого игрока имеются в наличии бойцы. У Игрока 1 - Мордо, Карнак, Змей и т.д. по списку… Один и тотже боец может быть у разных игроков
Напротив каждого бойца указан его рейтинг
Необходимо в таблицу листа Итог загрузить данные с таблицы листа 3бг, где каждый игрок будет иметь в списке по 5 уникальных (Все 50 отобранных персонажей в таблице на листе Итог не должны повторятся) бойцов с максимальным рейтингом
В данной файле имеется 69 уникальных бойцов из 184

Делайте так:
Dim iFNumber, iCount, i as Integer
Dim aFArray as array(49) 'или 50 если с Option Base 1
i = 1
Do While iFNumber < 50
Берите рандомом от 1 до нужного кол-ва (69 или 184)
Затем If i = 1 Then
aFArray(i) = получившееся число

Спасибо за ответ, но для меня это не понятно
Else
'Проверяем есть ли уже такой номер в массиве
For iCount = LBound(aFArray) To UBound(aFArray)
If aFArray = число Then GoTo TakeAnother
Next iCount
'если не найдёт повтора, то добавляем
i = i + 1
aFArray(i) = число
End If
TakeAnother
Loop