Как заполнить таблицу рандомными (случайными) числами

Иногда может возникнуть необходимость заполнить определённый диапазон ячеек на листе таблицы Excel случайными числами. Реализовать это можно двумя способами:

1. Используя функции Excel.
2. Используя VBA.

Формула заполнения ячеек таблицы Excel случайными числами

Если вам понадобилось заполнить таблицу случайными числами, например от 100 до 999, с помощью формулы, нужно:

1. Ввести в одну из ячеек таблицы формулу =СЛУЧМЕЖДУ(МИН(100;999); МАКС(100;999)). У меня это ячейка B2.
2. Скопируйте данную формулу во все остальные ячейки, которые нужно заполнить рандомными числами.

VBA код заполнение диапазона ячеек таблицы Excel случайными числами

Sub FillRandomNumbers()
    Dim worksheet As Worksheet
    Dim cell As Range
    Dim minValue As Integer
    Dim maxValue As Integer
    Dim randomValue As Integer
    
    ' Устанавливаем соответствующий Лист
    Set worksheet = ThisWorkbook.Sheets("Аркуш1") ' Замените название Аркуш1 на название своего листа
    
    ' Устанавливаем минимальное и максимальное значение для формирования случайного числа
    minValue = 100
    maxValue = 999
    
    ' Проходимся по ячейкам от B2 до M80 (вы можете заменить этот диапазон на свой)
    For Each cell In worksheet.Range("B2:M80")
        ' Генерируем случайное целое число в диапазоне от minValue до maxValue
        randomValue = Int((maxValue - minValue + 1) * Rnd + minValue)
        
        ' Заполняем ячейку случайным числом
        cell.Value = randomValue
    Next cell
End Sub

Видео как заполнить Excel случайными числами