Excel（エクセル）でセルをランダムに並び替え（シャッフル）する方法

並び替え機能と乱数を利用して、セルの内容をシャッフルする方法のご紹介です。

成果物
ランダムに並び替え
VBA（マクロ）でシャッフル

成果物

この状態から、

セルの並び順をシャッフルさせます。

ランダムに並び替え

Excelで範囲内でランダムな値（乱数）を生成・固定する方法/Rand関数、RandBetween関数の使い方

単語帳やアイデアツール、抽選など様々な局面で使えるRand関数（またはRandBetween関数）の使い方です。

使うのは乱数を作るRand関数と、

Excelエクセルで名簿を五十音順に並べ替える方法と昇順・降順の意味/並べ替えとフィルターの使い方

エクセルでデータを入力した後、提出する前にとりあえずデータを名前順や番号順に揃えて提出したい場合、単純に自分で使う場合に管理しやすくしたい場合など、データを昇順/降順で並べ替えたい場面は多いと思います。ここではexcelの「並べ替えとフィル...

セルを並び替える並べ替えとフィルタ機能です。

並べ替えたい列のひとつ右の列に=Rand()と入力してEnterを押し、

オートフィルで関数を下にコピーすると、このようにそれぞれランダムな0～1の値が返ります。

このランダムな値を並べ替えしたいので、選択範囲はそのままでホームタブ→並べ替えとフィルター→昇順をクリックします。

今選択されているのはB列ですが、隣接するA列も一緒に並べ替えしたいので、「選択範囲を拡張する」にチェックを付けたまま並べ替えを押します。

乱数および隣接するA列が並べ替えされました。
Rand関数で作った乱数は何か処理を行うたびに再計算が入り、ちがう数値に変わります。
数値が昇順の並びになっていませんが、並べ替える前とちがう数値になっているためなので気にしないでOKです。

Deleteを押し、Rand関数を削除したら完成です。

VBA（マクロ）でシャッフル

' vba
Sub シャッフル()

'A、B列にシャッフルに関係ないデータがない状態で実行すること
'A列の文字列の数を取得
Dim A列の数 As Integer
A列の数 = WorksheetFunction.CountIf(Range("A:A"), "")

'B列の1～「A列の数」行にRand関数を入力
For i = 1 To A列の数
Cells(i, 2).Value = "=rand()"
Next

'B列を優先してソート
Range("A:B").Sort Range("B1")

'B列を削除
Range("B1:B" & A列の数).Delete

End Sub