この方法では、いくつかの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） その中に、フィルハンドルを必要な範囲にドラッグします。

Note：この数式では、G1は最初のシーケンス番号が1のセルで、$ B $ 1：$ C $ 50は一意のランク列とボール番号列です。2は、範囲$ B $ 1：$ C $ 50のXNUMX番目の列で値を見つけることを意味します。 。

次に、以下のスクリーンショットに示すように宝くじ番号を取得します。

5。 これはオプションです。 現在のワークシートが更新されたときに宝くじ番号が自動的に変更されないようにするには、 式 > 計算オプション > マニュアル.

Excelでいくつかの一連のデータのすべての組み合わせを簡単に一覧表示します

Excel用のKutools すべての組み合わせを一覧表示 ユーティリティは、いくつかの特定の一連のデータから可能なすべての組み合わせを一般化するように設計されており、以下のスクリーンショットに示すように、これらの組み合わせを列にリストします。

この方法では、VBAマクロを適用してExcelで宝くじ番号を生成する方法を説明します。 次のようにしてください。

1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール 新しいモジュールウィンドウを開き、次の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。 A6：F1などの1つの隣接するセルを選択し、[ クツール > インセット > ランダムデータを挿入.

2。 これで、[ランダムデータの挿入]ダイアログボックスが表示されます。 に移動します 整数 タブ、タイプ 1 in ボックス、タイプ 49 in に ボックス、チェックボックス 一意の値 オプションをクリックし、 OK ボタン。 これで、6つの一意の宝くじ番号が生成され、選択したセルにすぐに表示されます。

Excelの基準に基づいてセルをランダムに選択します

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