データをランダムに並び替えるには？関数のみとVBAによる2つの方法

INDEX

データをランダムに並び替えるには？
使用した関数について

データをランダムに並び替えるには？

Excelでデータをランダムに並び替えたい場合、ランダムな数値を使ってデータを並び替える方法が便利です。この記事では、指定した範囲のセルをランダムに入れ替える手順を解説します。

RAND関数を使ったランダム並び替え方法

RAND関数を使うと、指定した範囲のデータをランダムに並び替えることができます。RAND関数は0以上1未満のランダムな数値を返すため、ランダムな順序でデータを並び替える際に役立ちます。

手順

ランダムに並び替えたいデータが含まれる範囲の隣の列に、RAND関数を使ってランダムな数値を生成します。
例えば、A列のデータをランダムに並び替えたい場合、B列に =RAND() を入力し、A列の全データに対してB列に数値を生成します。
B列にランダムな数値が表示されたら、A列とB列のデータ全体を選択します。
「データ」タブから「並べ替え」を選び、B列を基準に昇順または降順で並び替えを行います。
並び替えが完了したら、B列のランダムな数値を削除しても、A列のデータはランダムな順序のまま残ります。

数式の解説

=RAND(): 0以上1未満のランダムな数値を返します。Excelの並び替え機能と組み合わせることで、データをランダムに並び替えます。

例

以下の表では、A列に並び替えたいデータがあり、B列にランダムな数値が生成されています。

	A	B
1	データ	ランダム数値
2	りんご	=RAND()
3	バナナ	=RAND()
4	みかん	=RAND()
5	ぶどう	=RAND()

結果

ランダム数値を基準に並べ替えを行うと、A列のデータがランダムな順序に並び替えられます。

その他の方法

Excelでは、マクロ（VBA）を使用してデータをランダムに並び替えることもできます。VBAを使用すると、数式や列を追加することなく、直接データをランダムな順序に並び替えることが可能です。

VBAコード例

Sub RandomSort()
    Dim rng As Range
    Dim tempRange As Range
    
    ' 選択範囲を設定
    Set rng = Selection
    
    ' 選択範囲の隣の列にランダムな数値を追加
    rng.Offset(0, rng.Columns.Count).Resize(, 1).Formula = "=RAND()"
    
    ' 並び替えのキーとして追加したランダムな数値列を指定
    Set tempRange = rng.Resize(, rng.Columns.Count + 1)
    tempRange.Sort Key1:=tempRange.Columns(tempRange.Columns.Count), Order1:=xlAscending, Header:=xlNo
    
    ' ランダム数値列を削除
    rng.Offset(0, rng.Columns.Count).Resize(, 1).ClearContents
End Sub