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

質問

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

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

noname#1523

OFFSET関数で参照するセルの位置を現在セルの行[ROW()]と列[COLUMN()]を元に
計算する事で処理することができます

Ａ表：シート名『Sheet1』と仮定します
　　　データは１行目から入力されているとします
Ｂ表：シート名『Sheet2』と仮定します
　　　Ａ表の１～２４行目をＡ１～Ｘ１に
　　　　　　２５～４８行目をＡ２～Ｘ２に
　　　　　　以下２４行単位で繰り返します

【設定】
Sheet2のA1に以下の式を入力しA1～X365に単純にコピーします

　　=OFFSET(Sheet1!$A$1,(ROW()-1)*24+COLUMN()-1,0,1,1)

　　OFFSET(基準セル,行変位,列変位,参照行数,参照列数)
　　　基準セル：Sheet1!$C$1に固定　
　　　行変位：（現在行-1）*24+(現在列-1)
　　　　　　　　この指定で参照するSheet1の行番号を決定します
　　　　　　　　$A$1からの変位ですから、A1は0、A2は1となります
　　　列変位：常にSheet1のA列を参照するので0となります
　　　参照行数：1つのセルを参照するので1で固定
　　　参照列数：1つのセルを参照するので1で固定

【補足】

上記の状態では表Aに表Bが連動していますので
表Aが変更されれば表Bも変更されます
これが不味い場合はSheet2全体を選択(Ctrl＋A)し右クリックでコピー後、
再度右クリックで[形式を選択して貼り付け]で[値]で貼り付けます

もし表Ａに空白が有る場合参照結果は0となります
空白のままにしたい場合は、空白かどうかチェックして
空白を意図的にセットする必要が有ります

=IF(OFFSET(Sheet1!$A$1,(ROW()-1)*24+COLUMN()-1,0,1,1)="","",OFFSET(Sheet1!$A$1,(ROW()-1)*24+COLUMN()-1,0,1,1))

補足

xxsadayanxx様へ

お世話になります。
指示どおりに進めたつもりですが、うまくいきません。

※２つのシートとも、Ａ1からデータが入っています。
テスト段階ですので、２日分(48個データを移しかえる)でトライしてます。

行ったテスト
1）sheet2のＡ1にご指示がありました数式を入れて、Ａ1からＸ10まで
　　数式を10行コピーしてあります。
2）sheet1の　Ａ1からＡ48までコピーします。
3）sheet2に戻り、Ａ1からＸ2までの範囲を反転させ、行列を変更してペースト
　　結果；Ａ1からＡ24を突き抜けて右1行に48個が連続で並びます。
　　　　　なにもせず(反転させず)にしても、同じ結果です。
4）そのほか、値だけペーストなど、いくつかテストをしましたが、
　　いずれも、行列を変更させてペーストしています。
　　Ａ24で下のＢ1に折りかえしてくれません。

私の操作の問題だと思いますが、どこか不思議な点がありましたら
ご指示ください。

※　sheet2Ａ1の窓には　
　　=OFFSET(Sheet1!$A$1,(ROW()-1)*24+COLUMN()-1,0,1,1)が入り、
　　sheet2のＡ1に、結果として、＃VALUE! が見えてます。