Нужно ли мне другое условие ЕСЛИ, чтобы остановить рандомизацию желаемого результата?

Question

У меня проблема с получением 100% «уникальных» результатов в рандомизации списка групп.

Можно ли изменить этот код, который рандомизирует все списки в электронной таблице, чтобы приПолучено «уникальное» значение, оно оставлено в покое?

Прямо сейчас желаемый процент составляет 92%, потому что когда я увеличил процент, рандомизация занимает слишком много времени, чтобы генерировать или никогда не генерировать желаемый результат.

Sub refresher()
    For Count = 1 To 500
        Calculate

        UniCount = Application.CountIf(Range("A:F"), "Unique")
        DupCount = Application.CountIf(Range("A:F"), "Duplicate")

        Percent = UniCount / (UniCount + DupCount)

        If UniCount / (UniCount + DupCount) > 0.92 Then Exit For
    Next
End Sub

Могу ли я добавить еще одно IF утверждение? Примерно так: значение IF для пары равно «Уникальное», оставьте его в покое и рандомизируйте остальные, пока они не станут «Уникальными»Я хочу сделать так, чтобы я мог более эффективно рандомизировать 100% «уникальных» результатов.

Можно ли прикрепить образец таблицы?