Как сгенерировать лотерейные номера в Excel?

Этот метод проведёт вас через использование нескольких функций Excel для генерации лотерейных номеров. Выполните следующие действия:

1. В пустом листе введите заголовки столбцов в диапазоне A1:C1, как показано на снимке экрана ниже:

2. Введите формулы в столбцы A, B и C:

(1) Введите формулу =RAND() в ячейку A2, затем перетащите маркер заполнения на диапазон A2:A50.
(2) Введите формулу =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1 в ячейку B2, затем перетащите маркер заполнения на диапазон B2:B50. (В этой формуле A2 — случайное число слева от текущей ячейки, $A$2:$A$50 — весь диапазон случайных чисел, полученных первой формулой, B$1 — первая ячейка в столбце B, а B1 — ячейка над текущей ячейкой.)
(3) В диапазон C2:C50 введите последовательные числа от 1 до 49.

В результате вы получите таблицу, как показано на снимке экрана слева:

 

Слишком сложная формула, чтобы её запомнить? Сохраните формулу как элемент автотекста и используйте её в будущем всего одним щелчком! Подробнее…     Бесплатная пробная версия

3. Найдите пустой диапазон и введите последовательные числа горизонтально в строку, как показано на снимке экрана ниже:

4. В первую ячейку столбца «Номер последовательности из 1» введите формулу =VLOOKUP(G1,$B$1:$C$50,2,FALSE), а затем перетащите маркер заполнения на нужный диапазон.

Примечание: В этой формуле G1 — ячейка с первым значением из столбца «Номер последовательности из 1», $B$1:$C$50 — диапазон, охватывающий столбцы «Уникальный ранг» и «Номер шара», а число 2 указывает, что искомое значение находится во втором столбце этого диапазона.

В результате вы получите лотерейные номера, как показано на снимке экрана ниже:

5. Это необязательно. Чтобы предотвратить автоматическое изменение лотерейных номеров при обновлении текущего листа, перейдите в меню Формулы → Параметры вычислений и выберите Вручную.

Если у вас установлен Kutools для Excel, его утилита Вставить случайные данные поможет вам мгновенно создать лотерейные номера в Excel.

1. Выделите 6 соседних ячеек, например A1:F1, и нажмите Kutools > Вставка > Вставить случайные данные.

2. Откроется диалоговое окно Вставить случайные данные. Перейдите на вкладку Целое, введите 1 в поле От, введите 49 в поле До, установите флажок Уникальные значения и нажмите кнопку OKСразу после этого в выбранных ячейках появятся шесть уникальных лотерейных номеров.

Этот метод поможет вам применить макрос VBA для генерации лотерейных номеров в Excel. Выполните следующие действия:

1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль, чтобы открыть новое окно модуля, и вставьте в него следующий код VBA:

VBA: Генератор лотерейных номеров в Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот макрос VBA.

4. В появившемся диалоговом окне укажите ячейку для вывода лотерейных номеров и нажмите кнопку OK.

Теперь вы увидите, что 6 уникальных лотерейных номеров созданы и отображаются в указанных ячейках.

Случайный выбор ячеек на основе критериев в Excel

Случайное добавление фона/Цвет заполнения для ячеек в Excel