エクセルの関数やマクロだけで、ランダムな並べ替えをするには？

質問

エクセルの機能である［データ］－［並べ替え］操作を使わずに、
ランダムなデータの並べ替えをするには、どうしたらいいでしょうか？

例：
Ｅ列の乱数結果より、Ｄ列の内容をＢ列に並べ替え表示

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ
１　　順位　名称　Ｃ　　場所　乱数　　
２　　　１　　　　　　　青森　　５　　
３　　　２　　　　　　　埼玉　　１　　
４　　　３　　　　　　　長野　　３　　
５　　　４　　　　　　　福井　　２　　
６　　　５　　　　　　　大分　　４　　
７　　　　　　　　　　　　　　　　　　

↓

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ
１　　順位　名称　Ｃ　　場所　乱数　　
２　　　１　埼玉　　　　青森　　５　　
３　　　２　福井　　　　埼玉　　１　　
４　　　３　長野　　　　長野　　３　　
５　　　４　大分　　　　福井　　２　　
６　　　５　青森　　　　大分　　４　　
７　　　　　　　　　　　　　　　　　　

Ｂ列への関数入力または簡単なマクロを教えていただけると助かります。
よろしくお願いします。

回答No.4

imogasi

（関数）
乱数と順位の数と内容が一致しておれば
Ｂ２に
=INDEX($D$2:$D$6,MATCH(ROW()-1,$E$2:$E$6,0),1)
でもできます。
式をＢ６まで複写
結果
順位 名称 Ｃ 場所 乱数
1 埼玉 青森 5
2 福井 埼玉 1
3 長野 長野 3
4 大分 福井 2
5 青森 大分 4
============
（ＶＢＡ）
VBAでユーザー関数で
Function fn(n)
Set r = Range("E1:E100").Find(n)
fn = r.Offset(0, -1)
End Function
シートのＢ２に
=fn(A2)
と入れて、Ｂ６まで式を複写する。
結果
上記Ｂ列と同じ。

回答No.3

maron--5

◆これでもいいですよ
B2=INDEX($D$2:$D$6,MATCH(A2,$E$2:$E$6,0))

回答No.2

cafe_au_lait

B2:=INDEX($D$2:$D$6,MATCH($B2,$E$2:$E$6,FALSE))

下へコピーしてください。

回答No.1

n-jun

B2 =INDEX($D$2:$E$6,MATCH(A2,$E$2:$E$6,0),1)
で下にフィルコピーと言う事でしょうか？