Excel2007VBAで列ごとにランダム並べ替え

質問

Excel（エクセル）2007VBAを使った、
コマンドボタンを押すたびに「ある一列のデータをランダムに並べ替える」VBAソースが知りたいです。
(Google検索をかなりしたのですが、この条件を満たすVBAソースが見つかりませんでした。)
-----------------------------------

たとえば、

【A列】に
A1:えんぴつ
A2:消しゴム
A3:定規
A4:コンパス
A5:赤ペン
A6:下敷き
A7:ノート
A8:クリアファイル
A9:クリップ
A10:色鉛筆

と入力したとします。
そして、コマンドボタンを一回押します。
　　↓↓↓

【A列】が
A1:下敷き
A2:ノート
A3:クリップ
A4:コンパス
A5:定規
A6:色鉛筆
A7:えんぴつ
A8:赤ペン
A9:消しゴム
A10:クリアファイル

↑のように、
【A列】にある「えんぴつ」「消しゴム」「定規」「コンパス」「赤ペン」「下敷き」「ノート」「クリアファイル」「クリップ」「色鉛筆」の文字が、【ランダムで並べ替え】されるようにしたいです。

【補足】
※１回限定のランダム並べ替えではなく、コマンドボタンを押すたびに【何度でも】ランダム並べ替えできるようにしたいです(回数無制限のランダム並べ替えがしたいです)。

※上記の【A列】に並べた文字はあくまで例です。実際は、【A列】に自由に文字を入力できる応用の利く仕様にしたいです(Excelの【A列】に、どんな言葉や数字を直接入力してもランダム並べ替えできる、という意味です)。

※上記の【A列】が10行というのもあくまで例です。実際は、【A列】が何行にでも対応できる仕様にしたいです(具体的には【A列】が、時間がかかってでも5000行くらいまで対応できるのが理想です)。

実際はVBAを使わなくてもランダム並べ替えはできるのですが、その方法は効率が悪いと分かったので効率のため、コマンドボタンひと押しでランダムに並べ替えられる【VBAソース】が知りたいです。

上記の条件を満たすVBAソースがわかる方がいましたら、どうかご教授ください。
よろしくおねがいします。

回答No.1

nattocurry · ベストアンサー

> 実際はVBAを使わなくてもランダム並べ替えはできるのですが、

そうなのであれば、その一連の作業をすべて「マクロの記録」で記録し、それで記録されたマクロをコマンドボタンに登録すればいいだけですよ。

お礼

nattocurryさん

ご回答いただきありがとうございます。
的確なアドバイスありがとうございます。

いろいろ検索しまして、今ようやく、「マクロの記録」とやらでバッチリランダム並べ替えできました。

こんな方法があること自体知らなかったです。
すごい便利ですね＾＾

すごい気付き、ありがとうございます。

すばらしいベストアンサーです。

回答No.2

keithin

コマンドボタンには２種類ありますが，下記はActiveXコントロールを使用した場合の記載です。

private sub CommandButton1_Click()
　dim r
　r = cells(cells.rows.count, 1).end(xlup).row
　application.screenupdating = false
　range("A:A").insert
　range("A1:A" & r).formula = "=RAND()"
　range("A:B").sort key1:=range("A1"), header:=xlno
　range("A:A").delete
　application.screenupdating = true
end sub

お礼

keithinさん

ご回答ありがとうございます。

早速やってみました。
すごい！の一言。

私が求めていたもっとも理想的な動作をしてくれました。
本当に助かります。

keithinさんの回答もベストアンサーにしたかったです。