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．最初のシーケンス番号が入力されているセル（G1）の下のセルに、数式 =VLOOKUP(G1,$B$1:$C$50,2,FALSE)を入力し、必要な範囲までフィルハンドルをドラッグしてください。

注：この数式において、G1 は最初のシーケンス番号が入力されているセル、$B$1:$C$50 は「一意の順位」列と「ボール番号」列を含む範囲、2 はその範囲内で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 でセルに背景色／塗りつぶし色をランダムに追加する