エクセルデータの並べ替えに関して
エクセルデータの並べ替えに関して
A列からH列まで数値が入っていて、それが8,000行くらいあります。(毎回変動します。)
A1からH8000くらいのセルに値が入っています。
エクセルを縦長に使用しているので、このまま印刷をすると印刷面の右側半分以上が空白に
なってしまいます。
マクロを利用して、これらの値を96行ごとに2列分けたいと思っていますが、どうやったら
良いか、教えていただけないでしょうか。
(マクロ実行前)--------------
A B C D E F G H
1 1 2 3 4 5 6 7 8
2 2 3 4 5 6 7 8 9
3 3 4 5 6 7 8 9 10
4 4 5 6 7 8 9 10 11
・・・・・・
----------------------------
のように下方向に数字が並んでいる場合、マクロを実行したら
次のようにしたいと思っています。
(マクロ実行後)--------------
A B C D E F G H (I) J K L M N O P Q
1 1 2 3 4 5 6 7 8(1行空き)97 98 99 100 101 102 103 104
2 2 3 4 5 6 7 8 9(1行空き)98 99 100 101 102 103 104 105
3 3 4 5 6 7 8 9 10(1行空き)99 100 101 102 103 104 105
4 4 5 6 7 8 9 10 11(1行空き)100 101 102 103 104 105 106
・・・
96 96 97 98 99 100 101 102 103(1行空き)192 193 194 195 196 197 198 199
97 193 194 195 196 197 198 199 200(1行空き)289 290 291 292 293 294 295 296
・・・・・・
----------------------------
(1)A1からH96までを切り取って、J1に貼り付ける。
(2)「(1)」で切り取って出来た空欄を削除して上方向にシフトする。
(3)A97からH192までを切り取って、J97に貼り付ける。
(4)「(2)」で切り取って出来た空欄を削除して上方向にシフトする。
といった操作を「切り取って出来た空欄を削除して上方向にシフトする。」という操作を
しようとしたら上方向にシフトするデータがなくなるところまで続けたいと
思っています。
お礼
お礼が遅くなり大変失礼いたしました。シートの保護はかけていませんでした。PCのフリーズではないかと思い、システム復元をしてみたらうまく作動するようになりセルの選択も縦横自由に連続選択が出来るようになりました。 有難うございました。