エクセルで文字列の乱数を作るには？

質問

例えば、
東京都、千葉県、神奈川県、栃木県、埼玉県、群馬県、茨城県の
7個の文字列があったとしまして、
エクセルでこの7個の文字列のうち5つをランダムで選んで結合し、ひとつの文にする方法はありますでしょうか？
できれば、各々の間に『の』『と』『や』『が』『に』等の格助詞を入れて文にしたいと思っております。日本語としての意味は分からなくてもかまいません。
このようなひとつの文を各々の文字列が重複しないように順列で大量に作りたいと思っております。
例
１、千葉県の神奈川県に埼玉県の茨城県と群馬県
２、神奈川県と埼玉県の群馬県が千葉県や東京都
・・・

セルで重複しないようにランダムに表示できれば、ひとつの文にするのはエディタ等でできますので、セルに表示させる段階まででもかまいません。

どうかよろしくお願いします。

回答No.2

gutoku2 · ベストアンサー

RAND関数とRANK関数を使用します。
RAND関数を７つのセルに使用すれば、同一の値が同時に発生する可能性は
限りなくゼロに近い。
よって、その７つの数字をRANK関数で順位付けすれば重複しない７つの数字
が完成します。

都県の乱数
A1セル～A7セルに　　=RAND()　を入力し乱数を発生
B1セル　=RANK(A1,$A$1:$A$7)
　・・・
B7セル　=RANK(A7,$A$1:$A$7)
　　※B1～B7セルに１～７の重複しない整数

E1セル　1　E2セル　2　・・・・　E7セル　7
F1セル　東京都 ・・・・・・　　F7セル　茨城県

C1セル　=VLOOKUP(B1,$E$1:$F$7,2,FALSE)
　・・・
C7セル　=VLOOKUP(B7,$E$1:$F$7,2,FALSE)

同様に

「の」「が」等の乱数
A9セル～A14セルに　　=RAND()
B9セル　=RANK(A9,$A$9:$A$14)
　・・・
B14セル　=RANK(A14,$A$9:$A$14)
　　※B9～B14セルに１～５の重複しない整数

E9セル　1　E10セル　2　・・・・　E14セル　5
F9セル　の ・・・・・・　　F14セル　を

C9セル　=VLOOKUP(B9,$E$9:$F$14,2,FALSE)
　・・・
C14セル =VLOOKUP(B14,$E$9:$F$14,2,FALSE)

B17セル（結果ですからどこでも良いですが）に
　　　　=C1&C9&C2&C10&C3&C11&C4&C12&C5&C13&C6&C14&C7
と入力すれば、ご希望の結果が表示されます。

お礼

gutoku2様

長文のご回答ありがとうございました。
助かりました。しっかり文になっていて感動しました。

再度の質問で厚かましいですが、
最後のところで、
＞　=C1&C9&C2&C10&C3&C11&C4&C12&C5&C13&C6&C14&C7
というところですが、
5つ文を作るとなると、
C1&C9&C2&C10&C3&C11&C4&C12&C5&C13&C6&C14&C7
C2&C10&C3&C11&C4&C12&C5&C13&C6&C14&C7&C1&C9
C3&C11&C4&C12&C5&C13&C6&C14&C7&C1&C9&C2&C10
C4&C12&C5&C13&C6&C14&C7&C1&C9&C2&C10&C3&C11
C5&C13&C6&C14&C7&C1&C9&C2&C10&C3&C11&C4&C12
と1個ずつずれていくことになり、
千葉県の神奈川県に埼玉県の茨城県と群馬県
神奈川県に埼玉県の茨城県と群馬県を栃木県
埼玉県の茨城県と群馬県を栃木県は東京都
茨城県と群馬県を栃木県は東京都に千葉県
群馬県を栃木県は東京都に千葉県と神奈川県
という様にひとつの県が違うだけになります。

例えば、最後の段階で、C列の文字列をランダムにチョイスとかは
できないでしょうか？

お手数ですが、よろしくお願いいたします。

回答No.3

gutoku2

＃２です。

>助かりました。しっかり文になっていて感動しました。

お役に立てまして光栄です。
質問者さんの目的は分かりませんが、私の目的は達成できました。
（目的　：　私の頭の老化防止）

>＞　=C1&C9&C2&C10&C3&C11&C4&C12&C5&C13&C6&C14&C7
>というところですが、
>5つ文を作るとなると、

>例えば、最後の段階で、C列の文字列をランダムにチョイスとかは
できないでしょうか？

ご質問の趣旨は、同時に５つのランダムチョイスされた文章を作りたい。

これでよろしいのであれば、一番簡単な方法は、

私の記載しました内容を　Sheet1に作成します。
シート名の上にカーソルを置き　右クリック　
　移動またはコピー　を選択し　クリック
　コピーを作成する　にチェックをし　OK　をクリック
　　（シート名を変更しなければ、Sheet1(2)が出来ます）

これを5回繰り返すと、５個のランダム文章発生シートが５つできます。
Sheet1のB18セルに　='Sheet1 (2)'!B17　
B19に・・・・で５つの異なるランダム文章ができます。

但し、１００とか同時に欲しい場合はマクロを作成します。
マクロの場合は、再度質問を立てられる事をお奨めします。
（この質問は、財務・会計・経理のカテゴリに立てられています。
　カテ違いかと思われますので、正しいカテゴリに再質問されますか、
　教えてネット等、マイクロソフトの製品に極めて特化したサイトで
　の質問がよろしいかと思われます）

お礼

度々のご回答ありがとうございました。
うまくいきました。
確かに目的としては数千の文字列を作ることですので、
マクロが必要なのかも知れませんね。

どちらにしても親身になってご回答くださいまして、
心から感謝しております。

ありがとうございました。

gutoku2様の頭の回転。
老化どころかお若く。
失礼しました。

回答No.1

srafp

文章をつなげるための関数は「CONCATENATE」が使えると思います。
RAND関数による引用セル番号指定を考えてみましたが、重複を許さないとなると、この方法はダメですよね。

お礼

早速のご回答ありがとうございます。
繋げる関数は「CONCATENATE」ですね。ありがとうございます。

そうなんです。RAND関数やCHAR関数、VLOOKUP関数等いろいろ調べて試してはいるんですがダメなんです。。

がんばって調べてみます。