エクセルの移し変え作業（Ａ表のデータをコピー、Ｂ表にペーストする）で

質問

エクセルの移し変え作業（Ａ表のデータをコピー、Ｂ表にペーストする）で
もっと楽で時間の掛からない方法があれば教えてください。

現在のやり方
Ａ表に、１日24時間毎のデータが１年分（365日×24時間＝約8800行）あります。
上（1行目は１月１日１時のデータ）から、下（最終行目は12月31日24時のデータ）に向かってあります。

このデータをＢ表に移します。
Ｂ表の1行目は、1月1日のデータで、右方向に1時～24時までのセルがあります。
　　　2行目は、1月2日のデータで、右方向に1時～24時までのセルがあります。
　　　　　〃　　　　〃　　　〃　　　〃　　　〃
　　　365行目は、12月31日のデータで、右方向に１時～24時までのセルがありま　　　す。

データ移し変え方法は、
Ａ表から１日分(24データ)をコピー、Ｂ表の右方向へ行列を変更してペーストしています。
次に、１月２日を同様にしてコピー、ペースト、365回これをくりかえして１年分をまとめています。

この方法で7年分済ませましたが、作業してくれる方(私を含めて)が全員泣いてます。
花粉症なら分かっているけど風邪だと言い張って作業を休んだり、急に里帰りしたり、目が疲れるから３時間だけ、他にしなくてはならないことが、腱鞘炎だ、など、単調な作業でやたら時間がかかるので嫌われています。

今後、残りの作業年数が20年あり、エクセルの機能の中にこれが楽にできる
方法があれば、是非、是非、教えてください。
マクロは知らないので、出来るだけ、一般的な方法で。よろしくお願いします。

回答No.15

imogasi

（追報）
１．Ｔｅｓｔ0１（）は終わったようですね。ただ心配なのは最下行が、４１Ａまでと書いておられるが、８７６０行目(=24*365)に３６５ｚが入っているはずで
そうなっていませんか。
２．Ｔｅｓｔ0２（）ですが、新規作成のＢｏｏｋ１のＳｈｅｅｔ１のＡ列のデータに対し、プログラムが加工して、Ｓｈｅｅｔ２のＡ列からＺ列かつ１から３６５行までに書き出します。これで良いか良く考えてください。
３．ＯＫＷｅｂの画面の幅に合わせかたが判らなくて、苦しんでいます。下記の／より／までは行を変えずに打ち込み、かつ／では必ず改行してください。
スペースを入れるところは＠マークを入れます。
４．本例ではＳｈｅｅｔ１のＡ列の１列をＳｈｅｅｔ２のＡからＺ列に並べ替えていますが、Ｓｈｅｅｔ１には何列も有るのではないかと思う。
最大１０列に限り（１０×２４＜２５６＜１１×２４）
増やすようプログラムを改められます。
５．「私の解釈では」と書いておられるところは違います。ブックを新規で作成すると、取りあえずＳｈｅｅｔ１，Ｓｈｅｅｔ２、・・・が出来ますが
それをそのままテストで使うことを前提にして、ＷｏｒｋＳｈｅｅｔｓ（”Ｓｈｅｅｔ１”）とかＷｏｒｋＳｈｅｅｔｓ（”Ｓｈｅｅｔ２”）とかとしています。
５．本番のＢｏｏｋ（ファイル名）のデータが入っているＳｈｅｅｔにおいて、下記の操作をしてください。
Ｔｅｓｔ０１（）はテストデータ作成用ですので、本番では実行不要。
＜本番のＶＢＡ　Ｔｅｓｔ２（）実行操作＞
●本番の元データの入っているシートの画面を開く。
●その画面のメニューバーのツール－マクロ－ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒを順にクリックして、その後メニュバーの挿入－標準モジュールをクリックし、左のプロジェクトエクスプローラー部に「Ｍｏｄｕｌｅ１」があらわれるから、それをダブルクリックして右側部分の白紙画面に前記のテストの時のTest02()以下をそのままコピーし貼りつける。
（テストの時のＢｏｏｋ１のＳｈｅｅｔ１のＭｏｄｕｌｅ１のＴｅｓｔ0２（）からＥｎｄＳｕｂをコピーし、Ｂｏｏｋ１を閉じても、本番のデータの入っているＳｈｅｅｔのＭｏｄｕｌｅ１に貼りつけることが出来ます。）
●Test02()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニューバーの「実行」をクリックすると実行される。
@は１スペース、／は改行を示す（我流です。またＶＢＥがスペースを自動的に入れる個所がありますが、そのままにまかせて良い。）
Sub@test02()/
Worksheets("sheet1").Activate/
For@i@=@1@To@24 * 365/
j@=@i@Mod@24/
If@j@=@0@Then/
j@=@24/
k@=@Int(i/24)/
Else/
j@=@j/
k@=@Int(i/24)@+@1/
End@If/
Worksheets("sheet2").Cells(k,j)@=@Worksheets("sheet1").Cells(i, 1)/
Next@i/
End@Sub/

お礼

imogasi様

先日はマクロの件で、ご指導いただきましてありがとうございます。
それ以来、テストしましたが結果はまだできません。

私がマクロについて基礎的な解説書を読み、一般的な理解ができた後に
imogasi様のご回答が分かるはずです。そうします。
または、私の知人でマクロの理解者がおれば、imogasi様の回答書を元に
解説してもらいます。
imogasi様に折角回答をいただきましたが、ご負担をかけたことをお侘びします。

今後も、私に、教えて！問題が起これば投稿する機会があろうと思いますので、
その際は、よろしくお願いします。
ありがとうございました。
（これにて、質問を締め切ります）

補足

imogasi様
今晩は！追記ありがとうございます。
1）sheet1の8760行目は365Ｚが入って、sheet2への移し変えは
　　期待したとおり、365行になっています。
2）実際のデータは、Ａ列からＦ列まであります。
　　（テストはＡ列が、sheet2へ移ればよいとの考えですが、
　　　６列とも入れてテストしています。）
3）"私の解釈"は、今回はっきり理解できました。
　（行の後ろに引っ付けるというのは、実行した時、そこが赤い色がついたので
　　理解できました。）

本番の実行で：
ご指示のように、進めたつもりですが、、、、

左の枠の上部にVBAProject(Book1)があり、Module1　と　Module2が見れます。
その下に、VBAProject(本番データのタイトル)とModule1があり、Module1が
反転しています。

右に入っているプログラムの中で、Worksheets("sheet1").Activateの1行に
黄色に色がついてます。（なぜがは分かりませんが）
"sheet1"を本番データのシートの名前”data”をいれても同じ結果でした。

実行すると、
『実行時エラー'9'
インデックスが
有効範囲にありません』とメッセージが出ます。
最初からやり直して、何回か実行してみましたが、その都度
同じメッセージです。
私の操作ミスがどこにあるのか判断していただけませんか？