如何在 Excel 中產生樂透號碼？

此方法將引導您運用多個 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,FALSE)，然後向右拖曳填滿控點至所需範圍。

注意：在此公式中，G1 是包含「1」第一個序列號的儲存格，$B$1：$C$50 為「唯一排名」欄與「球號」欄的資料範圍，2 表示從該範圍的第二欄中傳回對應值。

接著您將得到如下方螢幕截圖所示的樂透號碼：

5．（選用）為避免工作表重新計算時樂透號碼自動變更，請點選公式> 計算選項> 手動。

若您已安裝 Kutools for Excel，可立即使用其插入隨機資料功能，在 Excel 中快速產生樂透號碼！

1. 選取 6 個相鄰的儲存格（例如 A1:F1），然後點選 Kutools> 插入> 插入隨機資料。

2. 此時將彈出「插入隨機資料」對話方塊。請切換至整數頁籤，在標示為從的 1 輸入框中輸入起始值，於標示為到的 49 輸入框中輸入結束值，勾選唯一值選項，再點選確定按鈕。立即產生 6 個不重複的樂透號碼，並顯示於所選儲存格中！

此方法將引導您透過 VBA 巨集在 Excel 中產生樂透號碼。請依照下列步驟操作：

1. 按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

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. 在彈出對話方塊後，請指定一個儲存格以輸出樂透號碼，然後點選確定按鈕。

接著，您將看到 6 個不重複的樂透號碼自動產生並顯示在指定的儲存格中。

在 Excel 中根據條件隨機選取儲存格

在 Excel 中隨機為儲存格新增背景色／填充顏色