Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in


How to generate lottery numbers in excel?

Have you ever thought of generating lottery numbers in Excel, or make a lottery number generator in Excel by yourself? In this article, I provide three methods for you to get it done easily.

Generate lottery numbers with Excel Functions (5 steps)

Generate lottery numbers with VBA Macro

Generate lottery numbers with Kutools for Excel (2 steps)

Easily list all combination of several series of data in Excel

Kutools for Excel’s List All Combinations utility is designed to general all possible combinations from several given series of data, and list these combinations in a column as below screenshot shown. Full Feature Free Trial 60-day!
as list all combinations 1

Excel Productivity Tools

Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial

Kutools for Excel: Save 70% of your time and solve 80% Excel problems for you. 300+ advanced features designed for 1500+ work scenario, make Excel much easy and increase productivity immediately.60-day Unlimited Free Trial

Generate lottery numbers with Excel Functions

This method will walk you through applying several Excel functions to generate lottery numbers. And you can do as follows:

1. In a blank worksheet, type column headers in Range A1:C1 as below screen shot shown:

2. Enter formulas in Column A, Column B, and Column C:

(1) In Cell A2, enter the formula =RAND(), and then drag the Fill handle to the range A2:A50.
(2) In Cell B2, enter the formula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, and then drag the Fill Handle to the Range B2:B50. (In the formula, A2 is the random number left to current cell, $A$2:$A$50 are all random numbers we got with the first formula, B$1 is the first cell in Column B, and B1 is the cell above current cell).
(3) In Range C2:C50, enter sequence numbers from 1 to 49.

Then you will get a table as left screen shot shown:


note ribbon Formula is too complicated to remember? Save the formula as an Auto Text entry for reusing with only one click in future!
Read more…     Free trial

3. Find a blank range, type sequence numbers horizontally in a row as below screen shot shown:

4. Below the first sequence number of 1, enter the formula =VLOOKUP(G1,$B$1:$C$50,2,FALSE) into it, and the drag the Fill Handle to the Range you need.

Note: In this formula, G1 is the cell with the first sequence number of 1, $B$1:$C$50 are Unique Rank column and Ball Number column, 2 means find values in the second column of Range $B$1:$C$50.

Then you will get the lottery numbers as below screen shot shown:

5. It's optional. To prevent the lottery numbers from changing automatically when current worksheet refreshes, you can click the Formula > Calculation Options > Manual.

Generate lottery numbers with VBA Macro

This method will guide you to apply a VBA macro to generate lottery numbers in Excel. Please do as follows:

1. Press Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module to open a new module window, and paste following VBA code into it:

VBA: Lottery Number Generator in 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
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)
End Sub

3. Press the F5 key or click the Run button to run this VBA macro.

4. Now in the popping up dialog box, specify a cell to output the lottery numbers, and click the OK button.

Then you will see 6 unique lottery numbers are generated and displayed in the specified cells.

Generate lottery numbers with Kutools for Excel

If you have Kutools for Excel installed, its Insert Random Data utility can help you generate lottery numbers in Excel at once.

Kutools for Excel - Combines more than 300 Advanced Functions and Tools for Microsoft Excel

1. Select 6 adjacent cells, such as A1:F1, and then click the Kutools > Insert > Insert Random Data.

2. Now the Insert Random Data dialog box comes out. Go to the Integer tab, type 1 in From box, type 49 in To box, check the Unique values option, and click the OK button. Now you will see 6 unique lottery numbers are generated and displayed in the selected cells immediately.

Kutools for Excel - Includes more than 300 handy Excel tools. Full feature free trial 60-day, no credit card required! Get it now!

Demo: generate lottery numbers with Kutools for Excel

In this Video, the Kutools tab and the Kutools Plus tab are added by Kutools for Excel. If need it, please click here to have a 60-day free trial without limitation!

Related articles:

Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 80% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.