Excel でリストをランダム化する（簡単なステップ・バイ・ステップチュートリアル）

動画：Excel でリストをランダム化する方法

関数でリストをランダム化する方法

このセクションでは、Excel の組み込み関数を活用してリストをシャッフルする方法をご紹介します。

RAND 関数でリストをランダム化する

お使いのExcel バージョンを問わず、RAND 関数と並べ替え機能を組み合わせることで、元のデータセットを簡単にランダムに並べ替えることができます。以下の手順に従って操作してください。

ステップ1：RAND 数式を入力する

ランダム化するリストの上にあるセルの隣のセルを選択し、以下の RAND 関数を入力して「Enter」キーを押してください。

=RAND()

ステップ2：RAND 数式を他のセルにコピーする

数式セルのフィルハンドル（右下隅にある小さな緑色の四角）をダブルクリックすると、その数式が下のセルにも自動的に適用されます。

ステップ3：RAND の結果を並べ替えてリストをシャッフルする

1。「B2:B8」（RAND 関数を含むリスト）を選択します。

2。「編集」グループの「ホーム」タブで、「並べ替えとフィルター」＞「最小から最大への並べ替え」をクリックします。

3。表示されたダイアログボックスで「選択範囲を拡張する」を選択して、「並べ替え」をクリックしてください。

結果

これで完了です！リストは以下のようにランダムに並べ替えられました。

RANDARRAY 関数、SORTBY 関数、ROWS 関数でリストをランダム化する（Excel 365/2021）

Microsoft 365 向け Excel や Excel 2021、または Web 版 Excel など、最新バージョンの Excel をお使いなら、RANDARRAY、SORTBY、およびROWS 関数を組み合わせるだけで、指定した場所に瞬時にシャッフルされたリストを表示できます！

ステップ1：RANDARRAY、SORTBY、ROWS の数式を入力する

ランダム化結果を表示したい空白セルを選択し、以下の数式を入力してください（注：以下の数式中の「)A2:A8」は、ランダム化したい元のリストに置き換えてください）。「Enter」キーを押してください。

=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))

（オプション）ステップ2：数式の結果をコピー＆ペーストして編集可能にする

ランダムな結果のみを表示したい場合は、このステップをスキップできます。シャッフルされたリストを編集するには、数式の結果をコピーして値として貼り付けてください。

1。数式の結果を選択し、「Ctrl」+「C」を押してコピーしましょう。

2。コピーした結果を貼り付けたいセルを右クリックします。（元の場所に値を貼り付けることも可能です。）

3。右クリックメニューから「値を貼り付け」を選択してください。

結果

これで、以下のようにシャッフルされた編集可能なリストが得られます。

2 クリックでKutools for Excel を使ってリストをランダム化する

数式を使うのに疲れましたか？アドインの力を借りて、もっと簡単にランダム並べ替えを実現しませんか？Kutools for Excelの並び替え、選択、またはランダムに機能を使えば、多彩なオプションで手軽にランダム並べ替えが可能です。以下の手順に従ってください：

まず、シャッフルしたいリストを選択します。次に、「Kutools」>「範囲」>「並び替え、選択、またはランダムに」をクリックします。「並び替え、選択、またはランダムに」ダイアログが表示されたら、「行全体」を選択して「OK」をクリックします。

VBA でリストをランダム化する方法

VBA メソッドでリストをランダムに並べ替えたい場合は、以下の手順に従ってください。

ステップ1：シャッフルするリストを選択する

ステップ2：VBA コードをモジュールウィンドウにコピーする

1。「Ctrl」+「F11」を押して VBA エディターを開き、「挿入」＞「標準モジュール」をクリックして、モジュールのコードウィンドウを開きます。

2。以下の VBA コードをコピーし、開いているモジュールウィンドウに貼り付けてください。

Sub RandomSort()
'Update by ExtendOffice
Dim xRg As Range
Dim xNum, xF, xI As Integer
Dim xWSh, xAWSh As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xAWSh = Application.ActiveSheet
Set xRg = ActiveWindow.RangeSelection
Set xWSh = Worksheets.Add
xNum = xRg.Count
For xF = xNum To 1 Step -1
    xI = WorksheetFunction.RandBetween(1, xF)
    xWSh.Range("A1").Value = xRg.Item(xI)
    xRg.Item(xI) = xRg.Item(xF)
    xRg.Item(xF) = xWSh.Range("A1")
Next
xWSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

ステップ3：VBA コードを実行する

コードウィンドウで「F5」キーを押すか、ボタンをクリックして、このコードを実行してください。

結果

関連記事

• Excel でセルをランダムに選択する方法は？
• ワークシートに値の列（A1:A15）があり、その中からランダムに5 つのセルを選択したい場合、どのようにすればよいでしょうか？この記事では、Excel でセルをランダムに選択するための実用的なテクニックをいくつかご紹介します。
• リストから重複なしでランダムにデータを選択するには、どうすればよいですか？
• この記事では、重複する値を除いてリストからセルを選択する方法をご紹介します。以下の2 つの方法を使えば、この作業をより迅速に処理できます。
• Excel で条件に基づいてセルをランダムに選択するには、どうすればよいですか？
• たとえば、制限された範囲から1 つまたは2 つの条件に基づいてデータをランダムに選択する必要がある場合、Excel ではどのように対応すればよいでしょうか？この記事では、そのためのいくつかの解決策をご紹介します。
• Excel でデータリストから値をランダムに入力するには、どうすればよいですか？
• たとえば、名前リストからいくつかの名前をランダムに選び、指定されたセルに入力したい場合、どのようにすればよいでしょうか？ここでは、Excel でデータリストから値をランダムに入力するためのいくつかの方法をご紹介します。
• Excel のその他のヒントとテクニック。。。