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は範囲$B$1:$C$50の2列目で値を見つけることを意味します。

すると、下記スクリーンショットのような宝くじの数字が表示されます：

5これはオプションです。現在のワークシートが更新されたときに宝くじの数字が自動的に変更されるのを防ぐために、次のようにクリックできます： 数式 > 計算オプション > 手動.

Kutools for Excelがインストールされている場合、その「ランダムデータを挿入する」機能を使用して、一度にExcelで宝くじの数字を生成できます。

1隣接する6つのセルを選択します（例：A1:F1）、そして次のようにクリックします： Kutools > 挿入 > ランダムデータを挿入する.

2これで「ランダムデータを挿入する」ダイアログボックスが表示されます。次のように移動します： 整数 タブで、「 1 基準 」ボックスに「 開始 49 」ボックスに「 終了 」ボックスにチェックを入れます： 一意の値を生成する オプションを有効にし、次のようにクリックします： OK ボタンを押すと、選択したセルに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ポップアップするダイアログボックスで、宝くじの数字を出力するセルを指定し、次のようにクリックします： OK ボタンを押します。

これで、指定したセルに6つのユニークな宝くじの数字が生成され、表示されます。

Excelで条件に基づいてランダムにセルを選択する

Excelでセルにランダムに背景色/塗りつぶし色を追加する