Как вставить уникальные случайные целые числа в заданном диапазоне в Excel?
Хотите вставить случайные числа в Microsoft Excel? Ниже представлены несколько простых способов для заполнения диапазона случайными значениями:
Вставка случайных чисел с помощью формул
Вставка случайных чисел с указанием Десятичные знаки с помощью VBA
Вставка случайных целых чисел/дат/времени без повторов/дубликатов
Вставка случайных чисел между двумя значениями с помощью функций СЛЧИС и формул СЛУЧМЕЖДУ
Этот метод использует функции СЛЧИС (RAND) и СЛУЧМЕЖДУ (RANDBETWEEN), чтобы вставлять случайные числа в заданном диапазоне значений в Excel. Примеры формул приведены ниже:
| Формула | Описание (результат) |
| =RAND() | Случайное число между 0 и 1 (изменяется) |
| =RAND()*100 | Случайное число между 0 и 100 (изменяется) |
| =RANDBETWEEN(low, high) | Случайное целое число в диапазоне между двумя заданными целыми числами, например RANDBETWEEN(50; 100). |
См. снимки экрана ниже:
| Случайные числа между 0 и 1 =RAND()  | Случайные числа между 0 и 100 =RAND()*100  | Случайные целые числа между 50 и 100 =RANDBETWEEN(50, 100)  |
Вставка случайных чисел между двумя значениями с указанием Десятичные знаки с помощью VBA
Приведённый ниже код VBA поможет вам вставить случайные целые числа или случайные числа с заданным количеством десятичных знаков в указанный диапазон в Excel. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.
Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function
3. Сохраните и закройте код, затем в пустой ячейке введите формулу =RandomNumbers(X,Y,Z), где X — нижняя граница чисел, Y — верхняя граница чисел, а Z — количество десятичных знаков у случайных чисел.
Например, чтобы сгенерировать целые числа от 50 до 1000, используйте формулу =randomnumbers(50,1000,0). А чтобы вставить случайные числа от 50 до 100 с точностью до двух десятичных знаков, примените формулу =randomnumbers(50,100,2). См. снимки экрана ниже:
Вставка случайных целых чисел / дат / времени без дубликатов с помощью Kutools для Excel
Kutools для Excel's Вставить случайные данные позволяет вставлять случайные целые числа между двумя заданными значениями без повторений в выбранном диапазоне Excel. Выполните следующие действия:
Kutools для Excel — включает более 300 незаменимых инструментов для Excel. Работайте в Excel быстрее, проще и эффективнее.Скачать сейчас!
1. Выделите диапазон, в который нужно вставить случайные целые числа, и нажмите Kutools > Вставка > Вставить случайные данные. См. снимок экрана:
2. В диалоговом окне Вставить случайные данные (1) выберите вкладку Целое, (2) укажите в полях «От» и «До» диапазон чисел, в пределах которого будут генерироваться случайные целые значения, (3) установите флажок Уникальные значения и (4) нажмите кнопку ОК. См. снимок экрана:
Эта замечательная функция Вставить случайные данные также поддерживает вставку случайных дат без повторов, случайного времени без дубликатов, случайных символов и случайных данных из определённых пользовательских списков без повторений.
Вставка случайных дат (исключая выходные) без повторов с помощью Kutools для Excel
Вставка случайных временных значений без повторов с помощью Kutools для Excel
Вставка случайных символов с указанием Фильтр по длине строки с помощью Kutools для Excel
Вставить случайные данные из определённого Пользовательские списки без повторов с помощью Kutools для Excel
Связанная статья:
Генерация случайных строк символов в диапазоне
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек