此方法將指導您應用幾個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表示在範圍$ B $ 1：$ C $ 50的第二列中查找值。

然後您將獲得如下所示的彩票號碼：

5。 它是可選的。 為防止彩票號碼在當前工作表刷新時自動更改，可以單擊 公式 > 計算選項 > 手動操作.

輕鬆列出Excel中幾個系列數據的所有組合

Kutools for 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 for Excel，則其 插入隨機數據 實用程序可以幫助您立即在Excel中生成彩票號碼。

1。 選擇6個相鄰的單元格，例如A1：F1，然後單擊 庫工具 > 插入 > 插入隨機數據.

2。 現在，出現“插入隨機數據”對話框。 轉到 整型 標籤，輸入 1 in 起 框，鍵入 49 in 至 框，選中 獨特價值 選項，然後單擊 OK 按鈕。 現在，您將看到6個唯一的彩票號碼已生成並立即顯示在所選單元格中。

根據Excel中的條件隨機選擇單元格

在Excel中為單元格隨機添加背景/填充顏色