エクセルでトランプ

エクセルで、トランプの「山」のような状態を作りたい・・・と思っています。
例えば、１番目～５２番目までに、１～５２までの数値をランダムで重複なくセットし、更新するごとにその山がランダムでシャッフルされる、といった感じのものです。
いろいろ調べてみたのですが、マクロはちょっと自信がありません。また、画像なども必要ありません。
何か通常の関数などでいい方法はないでしょうか？

No.4 ベストアンサー 回答者： misatoanna 回答日時： 2008/04/09 11:45

A1に

=RAND()
で、A52 までコピー。

B1（こちらが使用する数字）に
=RANK(A1,$A$1:$A$52,1)+COUNTIF($A$1:A1,A1)-1
で、B52 までコピー。

ではいかがでしょう。

Ａ列に複数生じた同じ数字は、Ｂ列では常に上のほうが小さく
なるのが欠点ですが……。

この回答へのお礼

回答ありがとうございました。追加でもう１個乱数を発生させて、同じ数字の際の上下をランダム判定させる、という方法で対処することにしました。
他に回答頂いた方々も、大変ありがとうございました。

お礼日時：2008/07/24 02:56

No.3 回答者： jo-zen 回答日時： 2008/04/09 11:08

ANo.1の補足です。

乱数を発生させた際、可能性としてたまたま、A10とA51が同じ数字ということ（重複）が考えられます。そうした場合ＲＡＮＫ関数で1～52が重複なくとりだせくなる（重複数字・欠番数字が発生します）ので、それを回避する方法としては、Ａ列のセルに入れる数式を
=RAND()+ROW()
としてあげればいいかと思います。なお、ROW()は行番号を取り出す関数です。A1に　=row()　と入力すれば返される値は１、A29に　=row()　と入力すれば返される値は２９となります。

No.2 回答者： mshr1962 回答日時： 2008/04/09 11:07

ランダム自体はRAND関数でできますが計算のたびに変化するので

順番付けまでしかできませんが良いでしょうか？
A1=RAND()
B1=RANK($A$1:$A$52,A1)
として52行目までコピーします。B1:B52に1～52の数値がランダムで並びます。
後は再計算が働く状況（セルに入力とかシートの移動）で更新されます。
C列以降に記号やトランプの数字を対応させればよりよいかと思います。

１枚ずつめくるような感じにしたい場合は、マクロを使うしかありませんけどね。

No.1 回答者： jo-zen 回答日時： 2008/04/09 11:00

乱数を用いて、例えばA列を作業列として

「Ａ１」セルに　=rand() と入力し、それを「Ａ５２」セルまでコピーする。Ｂ列にランダムに１～５２を表示するものとして
「Ｂ１」セルに　=RANK(A1,$A$1:$A$52,1)　と入力し、それを「Ｂ５２」セルまでコピーする。
更新する場合は「Ｆ９」キーを押せば再計算してくれます。