Цей метод допоможе вам застосувати кілька функцій Excel для створення номерів лотерей. І ви можете зробити наступне:

1. На пустому аркуші введіть заголовки стовпців у діапазоні A1: C1, як показано на знімку екрана нижче:

2. Введіть формули в стовпці А, Стовпці В та Стовпці C:

(1) У комірку А2 введіть формулу = RAND (), а потім перетягніть маркер заповнення до діапазону 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.

Тоді ви отримаєте таблицю, як показано на знімку зліва:

 

Формула занадто складна, щоб запам'ятати? Збережіть формулу як автоматичний запис тексту для повторного використання лише одним клацанням у майбутньому! Детальніше ...     Безкоштовне випробування

3. Знайдіть порожній діапазон, введіть порядкові номери по горизонталі в ряд, як показано на знімку екрана нижче:

4. Під першим порядковим номером 1 введіть формулу = ПЕРЕГЛЯД (G1, $ B $ 1: $ C $ 50,2, FALSE) і перетягніть ручку заповнення до потрібного вам діапазону.

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

Тоді ви отримаєте номери лотереї, як показано нижче:

5. Це необов’язково. Щоб запобігти автоматичній зміні номерів лотерей, коли поточний аркуш оновлюється, ви можете натиснути Formula > Параметри розрахунку > Мануал.

Легко перелічіть усі комбінації кількох рядів даних в Excel

Kutools для Excel Перелічіть усі комбінації Утиліта призначена для узагальнення всіх можливих комбінацій з кількох заданих серій даних та перерахування цих комбінацій у стовпці, як показано на знімку екрана нижче.

Цей метод допоможе вам застосувати макрос VBA для генерування номерів лотереї в Excel. Будь ласка, виконайте наступне:

1. Прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Клацання Insert > Модулі відкрити нове вікно модуля та вставити в нього наступний код 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 унікальних номерів лотереї генеруються та відображаються у зазначених клітинках.

Якщо у вас встановлений Kutools для Excel, його Вставити випадкові дані Утиліта може допомогти вам одночасно генерувати лотерейні номери в Excel.

1. Виберіть 6 сусідніх комірок, наприклад A1: F1, а потім клацніть на Кутулс > Insert > Вставити випадкові дані.

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

Випадковим чином виділіть комірки на основі критеріїв у Excel

Випадково додайте колір фону / заливки для комірок у Excel