'★ ^を空白に置き換えて使ってください
'━━━━━━━━━━━━━━━━━━━━━
'
'VBA(マクロ)です
Sub^fjfjf()
Dim^wALines^As^Long^^^^^^^^^'Aに入っているデータの行数
Dim^wAData^^^^^^^^^^^^^^^^^^'Aのデータを退避する場所
Dim^wB1Data^As^Long^^^^^^^^^'B1のデータ
Dim^X1^As^Long^^^^^^^^^^^^^^'ループの回数を制御
Dim^X2^As^Long^^^^^^^^^^^^^^'乱数を入れる 1～Aの最大のどれか
wALines^=^Range("A1").SpecialCells(xlLastCell).Row^^'シートの最終行を取得
wAData^=^Worksheets("Sheet1").Range("A1:A"^&^wALines)^^^'A列のデータを退避
Randomize^Time^^^^^^^^^^^^^^'乱数を初期化する
'A列の内容を乱数で発生した行位置を使ってC列に一つずつ転送
'Aの中の転送に使ったセルの内容を空欄にする
wB1Data^=^Cells(1,^2)
For^X1^=^1^To^wB1Data
^^^^Do^While^True
^^^^^^^^X2^=^Int((Rnd^*^wALines)^+^1)
^^^^^^^^If^wAData(X2,^1)^<>^""^Then^'空欄なら再度乱数を作り直す
^^^^^^^^^^^^Cells(X1,^3)^=^wAData(X2,^1)
^^^^^^^^^^^^wAData(X2,^1)^=^""
^^^^^^^^^^^^Exit^Do
^^^^^^^^End^If
^^^^Loop
Next
End^Sub
