Този метод ще ви преведе през прилагането на няколко функции на Excel за генериране на лотарийни числа. И можете да направите следното:

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

2. Въведете формули в колона A, колона B и колона C:

(1) В клетка A2 въведете формулата =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 въведете формулата =VLOOKUP(G1,$B$1:$C$50,2,НЕВЯРНО) в него и плъзнете манипулатора за запълване до диапазона, от който се нуждаете.

Забележка: В тази формула 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 клавиша или щракнете върху бягане бутон, за да стартирате този VBA макрос.

4. Сега в изскачащия диалогов прозорец посочете клетка за извеждане на лотарийните числа и щракнете върху OK бутон.

След това ще видите, че 6 уникални лотарийни номера са генерирани и показани в посочените клетки.

Ако имате инсталиран Kutools за Excel, това е Вмъкване на произволни данни помощната програма може да ви помогне да генерирате лотарийни числа в Excel наведнъж.

1. Изберете 6 съседни клетки, като A1:F1, и след това щракнете върху Kutools > Поставете > Вмъкване на произволни данни.

2. Сега излиза диалоговият прозорец Вмъкване на произволни данни. Отидете на цяло число раздел, въведете 1 in от кутия, въведете 49 in Да се поле, отметнете Уникални ценности и щракнете върху OK бутон. Сега ще видите, че 6 уникални лотарийни номера се генерират и показват незабавно в избраните клетки.

Произволно изберете клетки въз основа на критерии в Excel

Произволно добавяне на фон/цвят за запълване на клетки в Excel