Метод 1: использование функции СЛУЧМЕЖДУ
Давайте начнем со старой доброй функции СЛУЧМЕЖДУ. Эта функция генерирует случайное число между двумя указанными значениями. Чтобы обеспечить уникальность, мы можем объединить это с небольшим количеством творчества. Вот пример:

= RANDBETWEEN(1000, 9999) & "-" & RANDBETWEEN(1000, 9999)

Эта формула генерирует уникальное четырехзначное число, за которым следует дефис и еще одно уникальное четырехзначное число. Не стесняйтесь настраивать диапазон в соответствии с вашими требованиями.

Метод 2: использование функции СЛУЧАЙ
Появившаяся в последних версиях Excel функция СЛУЧАЙ позволяет нам генерировать массив случайных чисел. Включив дополнительные формулы, мы можем манипулировать этим массивом для создания уникальных случайных чисел. Вот пример:

= UNIQUE(SORTBY(RANDARRAY(1000), RANDARRAY(1000)))

В этой формуле мы генерируем массив из 1000 случайных чисел, сортируем их, используя другой массив случайных чисел, а затем извлекаем уникальные значения с помощью функции UNIQUE. Опять же, отрегулируйте размер массива в соответствии со своими потребностями.

Метод 3: магия VBA с функцией рандомизации
Для тех, кто любит погружаться в мир VBA (Visual Basic для приложений), Excel предлагает еще большую гибкость. Мы можем использовать функцию Randomize для инициализации генератора случайных чисел и генерации уникальных случайных чисел. Вот пример фрагмента кода VBA:

Sub GenerateUniqueRandomNumbers()
    Dim rng As Range
    Set rng = Range("A1:A100") ' Adjust the range as needed
    Dim cell As Range
    Dim uniqueNumbers As New Collection
    Dim randomNumber As Long

    Randomize ' Initialize the random number generator

    For Each cell In rng
        Do
            randomNumber = Int((9999 - 1000 + 1) * Rnd + 1000)
        Loop While Not IsUnique(randomNumber, uniqueNumbers)

        uniqueNumbers.Add randomNumber
        cell.Value = randomNumber
    Next cell
End Sub
Function IsUnique(ByVal number As Long, ByVal collection As Collection) As Boolean
    On Error Resume Next
    collection.Add number, CStr(number)
    IsUnique = Err.Number = 0
    On Error GoTo 0
End Function

Этот код VBA генерирует уникальные случайные числа в указанном диапазоне (в данном случае A1:A100). Он использует коллекцию для отслеживания сгенерированных чисел и обеспечивает уникальность с помощью функции IsUnique.

В Excel предусмотрено несколько методов генерации уникальных случайных чисел: от простых формул, таких как СЛУЧМЕЖДУ, до сложных методов, таких как программирование VBA. Эти методы могут быть полезны в различных сценариях, таких как создание уникальных идентификаторов, запуск моделирования или создание рандомизированных выборок. Так что вперед, раскройте силу случайности в Excel и усовершенствуйте свои навыки работы с электронными таблицами!