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

質問

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

現在のやり方
Ａ表に、１日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.8

imogasi

なんか悲惨な様子が伝わってきましたので、解答する気になりました。ただVBA（俗に言うマクロ）なので、判らないといわれるかもしれないですが、まあ考えてそっくり真似することを検討してください。
他の方の関数作成、式のコピー方式も結構複雑なようで
下記の法が簡単かも。
下記Test2()は１０秒以内に終わります。Test1()も１０秒以内です。
もし下記を使われるなら、まずTest1()を実行して、sheet1のテストデータを良く見て、私の理解が、実情と違っていないか考えて、良ければTest2()を実行して下さい。
データは特徴をモデル化してあるつもりですので、。
そしてsheet2を良く見て貴殿が考えている通りのパターンに並べ替えられたか良く考えてください。
それから本番のデータにTest2()を実行してください。
'--------＜テストデータの作成＞
Sub test01()
b = "abcdefghijklmnopqrstuvwxyz"
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("sheet1").Cells(i, 1) = k & Mid(b, j, 1)
Next i
End Sub
（Next iの上の行「1)」はWorksheets("sheet1")の行の後に引っ付けてください。横幅制約の為に無理に改行されていますのでご注意。この（）の部分はプログラムでないのでプログラムの打ち込みの時は省くこと。）
'-----<行と列の日別に入れ替え＞
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
（Next iの上の行はWorksheets("sheet2")の行の後に
引っ付けてください。横幅制約の為に無理に改行されて
いますのでご注意。この（）の部分はプログラムでないのでプログラムの打ち込みの時は省くこと。）
'---<VBAの実行のし方>
●エクセルでのメニュバーのファイル－新規作成をクリックしsheet1の画面を開く。
●メニュバーのツール－マクロ－ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒを順にクリックして、その後メニュバーの挿入－標準モジュールをクリックし、左のプロジェクトエクスプローラー部に「Ｍｏｄｕｌｅ１」があらわれるからそれをダブルクリックして右側部分の白紙画面に上記のTest1()以下とTest2()以下をそのまま入力する。
●し終わったら、Test1()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニュバーの「実行」をクリックすると実行される。
●出来たsheet1を良く見てください。
●Test2()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニュバーの「実行」をクリックすると実行される。
●出来たsheet2を良く見てください。
●Test2()でプログラムのやっている理屈や内容が知りたければ、補足に表明していただければ説明文を作ります。
●私の方法に関わらず、いかなる方法でやるにせよ、実本番データは別にバックアップを取って置いて実行すること。

補足

imogasi様

ご返事が遅くなり失礼しました。
マクロ以外の方法をテストしてきましたが、まだ最終まで到達できません。

imogasi様より教えていただきました方法でマクロの世界に入ります。
ご指示どおりに●1、●2、●3、●4、まで進めてできたsheetを
見ております。
sheet1の、Ａ列にＡ1から下方向に、1a,1b,1c,と1が24行並び、
25行目から2a,2b,2c,が　最終の　41a　まで見れます。

しかし、私のデータと、それをペーストするsheetはまだ入れてありません。

以下、私の不明な点の質問となります。
1）sheet3、にデータを入れ、sheet4にペースト先のものを入れるのでしょうか？
2）以下の文章の内容指示ですが、これをどこに貼り付けるのしょうか？　を　指　　示してください。
　　※　Next iの上の行はWorksheets("sheet1")の行の後引っ付けてください。
　　　　→　私の解釈；
　　　　　　マクロ－テスト-1とシートに名をつけておりますが、
　　　　　　下側にあるsheet表示欄のsheet1のタイトルの後ろに
　　　　　　スペースを空けずに、Cells(i, 1) = k & Mid(b, j, 1) と
　　　　　　つけるのでしょうか？　
　　　　　　ご指示の後方に("sheet2")につけることも書かれております。
　　　　　　そうなると、データなどはsheet3以降に入れるのでしょうか？

　夜分遅くなり、ご連絡が遅く失礼します。
　私ごとですが、まだ、２時間位この作業を進める道を探しますので
　起きております。