Excel 文字や記号を重複無し＆ランダムで出す

質問

以前、整数をランダムかつ重複しないように出す方法を質問しました。
http://okwave.jp/qa/q8998274.html

今度は、文字や記号などの整数以外のものをランダムかつ重複しないように出したいのですが…
可能でしょうか？

回答No.1

kagakusuki · ベストアンサー

その
http://okwave.jp/qa/q8998274.html
のベストアンサーの方法における３から７の数字の代わりに、文字や記号などを重複しない様に並べておき、Ａ：Ｂ列をＡ列で並べ替えれば良いだけです。

お礼

大変参考になりました。
回答してくださった皆さんありがとうございました。

回答No.2

Prome_Lin

VBAでも、構わなければ（問題なければ）・・・。

エクセルを立ち上げます。

「Alt＋F11」（「Alt」（「オルト」と読みます）キーを押しながら、「F11」キーを押す）と、新しくソフトが起動します。

「メニュー」の「挿入」→「標準モジュール」で、右側が白くなりますので、その白い部分に、以下のマクロをコピー＆ペーストして貼り付け、「F5」を押して実行します。

Option Explicit
Sub Test()
Dim c, i As Integer
Dim f(25) As Boolean
For i = 1 To 26
Do
c = Int(Rnd * 26)
Loop While f(c)
Cells(i, 1).Value = Chr(c + 65)
f(c) = True
Next i
End Sub

結果は、「Ａ」列に「A～Z」が重複せずに、ランダムに並びます。

「Chr(c + 65)」（c = 0～25）の部分が、「A～Z」を作っています（Chr(65)＝A）。

あとは、聞かないでください。

他のサイトを参考にして作りましたので、よく分かっていませんが、結果は出ています。