Як заповнити таблицю рандомними (випадковими) числами

Інколи може виникнути потреба заповнити певний діапазон комірок на аркуші таблиці Excel випадковими числами. Реалізувати це можна двома способами:

1. Використовуючи функції Excel і написавши відповідну формулу.
2. Використовуючи VBA.

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

Якщо вам потрібно заповнити таблицю випадковими числами, наприклад від 100 до 999, за допомогою формули, то виконайте наступні дії:

1. Введіть в одну з комірок таблиці формулу =RANDBETWEEN(MIN(100;999); MAX(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 випадковими числами