[[20110701120757]]　『データをランダムに並べたい』（Teddy）　ページの最後に飛ぶ

『データをランダムに並べたい』（Teddy）

お世話になります。
以下のような表を作りました。

   A  　 B  　 C   D     
1 ア　りんご　カ　ぶり
2 イ　かき　　キ　たい
3 ウ　なす　　ク　もも
4 エ　さんま　ケ　うし
5 オ　いも　　コ　かぼちゃ

A列とC列は動かさずに、B,D列をすべてシャッフルしたいと思っています。
エクセルでできる方法はありますでしょうか。
よろしくお願いいたします。

エクセルのバージョン：Excel2007
OS　　　　　　　　　：Vista

 選択範囲をシャッフルするマクロです。
 B,D列を選択した状態で実行してみてください。

  Sub test()
  Dim myRng As Range
  Dim i     As Long
  Dim myC As New Collection

  For Each myRng In Selection.Cells
    myC.Add myRng.Value
  Next myRng
  ReDim buf(1 To myC.Count)
  Randomize
  For Each myRng In Selection.Cells
    i = Int(myC.Count * Rnd + 1)
    myRng.Value = myC.Item(i)
    myC.Remove i
  Next myRng
  End Sub

 （ｍｏｍｏ）

外野からですが、なにも動かないのですがぁ(ポポンＳ)

できました！
あらためて、本当のシートに全てのデータを入れた状態で確認してから解決にしたいと思います。
取り急ぎお礼まで。
momo様、ありがとうございました。

momo様
おかげさまで、無事に完成させることができました。

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

コメント返信：

[ 一覧(最新更新順) ]

[[20110701120757]] 『データをランダムに並べたい』（Teddy） ページの最後に飛ぶ

[[20110701120757]]　『データをランダムに並べたい』（Teddy）　ページの最後に飛ぶ