Этот метод поможет вам применить несколько функций Excel для генерации номеров лотереи. А сделать можно так:

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

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

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

Тогда вы получите таблицу, как показано на скриншоте слева:

 

Формула слишком сложна для запоминания? Сохраните формулу как запись Auto Text для повторного использования одним щелчком мыши в будущем! Подробнее ...     Бесплатная пробная версия

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

4. Под первым порядковым номером 1 введите формулу = ВПР (G1; $ B $ 1: $ C $ 50,2; FALSE) в него и перетащите маркер заполнения в нужный диапазон.

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

Затем вы получите номера лотереи, как показано на скриншоте ниже:

5. Это необязательно. Чтобы номера лотереи не менялись автоматически при обновлении текущего листа, вы можете нажать кнопку Формула > Варианты расчета > Ручная.

Легко составить список всех комбинаций нескольких серий данных в Excel

Kutools для Excel Список всех комбинаций Утилита предназначена для обобщения всех возможных комбинаций из нескольких заданных серий данных и перечисления этих комбинаций в столбце, как показано на скриншоте ниже.

Этот метод поможет вам применить макрос VBA для создания номеров лотереи в Excel. Пожалуйста, сделайте следующее:

1, нажмите другой + 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 ключ или щелкните Run кнопку, чтобы запустить этот макрос VBA.

4. Теперь во всплывающем диалоговом окне укажите ячейку для вывода номеров лотереи и щелкните значок OK .

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

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

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

2. Появится диалоговое окно «Вставить случайные данные». Перейти к Целое вкладка, тип 1 in от поле, введите 49 in к поле, отметьте Уникальные ценности и нажмите OK кнопка. Теперь вы увидите, что 6 уникальных номеров лотереи генерируются и сразу отображаются в выбранных ячейках.

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

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