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

質問

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

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

nishi6 · ベストアンサー

原因不明ですね。

〔第３段階〕
Sheet2のA1に
　=INDEX(Sheet1!$A$1:$A$8760,(ROW()-1)*24+COLUMN(),1)　としてみてください。

『Sheet1』はシートタブに表示されているシート名です。
『$A$1:$A$8760』はとりあえず『$A$1:$A$500』でもかまいません。

だめなら、
〔第３段階〕
Sheet1のA列のデータの入っている範囲に名前をつけます。
　Sheet1のA列のデータの入っている範囲（A1からA列のＸ行まで）を選択して、
　　挿入→名前→定義で『DATA』を入力

Sheet2のA1に
　=INDEX(DATA,(ROW()-1)*24+COLUMN(),1)　とします。

2.66がでればコピーします。

2.66がでなければ、
　セルA1で　=(ROW()-1)*24+COLUMN()　がどうなるか教えて下さい。
　セルA2で　=(ROW()-1)*24+COLUMN()　がどうなるか教えて下さい。
　セルB1で　=(ROW()-1)*24+COLUMN()　がどうなるか教えて下さい。

Excelのバージョンが関係する？
Indexを使ってみています。

お礼

nishi6様

誠に申し訳ないことが分かりました。
今まで、数式を入れて数式欄が表示されている左横のチェックで
入れておりました。
そうすると、値の更新シートがでてきますが、意味が分からず
恐ろしくてキャンセルしておりました。
たまたま　ＯＫ　をクリックしましたら、数値が正常に出てくる
ことに気がつきました。
すると、その間何回もわずらわしいことを、nishi6様に考えていただき、
大変申し訳ありません。
教えていただいた、＃１の回答で、すべてができた訳です。
本当に、ごめんなさい。
私の無知のため、時間を取らせたことをお侘びします。

この質問でマクロに手をつけたので、その結果が確認できてから
締め切りします。
ありがとうございました。

追伸；明日はちょっとでなく、ピノキオで鼻高々です。
　　　いい忘れたこと：エクセル2002を使ってます。

回答No.6

awa66

NO3のAWA66です。質問の内容を早とちりしました。

済みません。出直しします。

回答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! が見えてます。

回答No.4

HAL007

質問を誤解していたらm(_ _)mゴメンさい。

コピーとペースト一日単位でなくて２５６日単位にしたらどうなんですか？
ペーストの時に「編集」→「形式を選択して貼り付け」行列を入替えるで
２５６日（列）出来ます。

補足

HAL007　様

ご連絡ありがとうございます。
テストは、データを48個で行いました。

１）sheet1のセルＡ1からＡ48まで(２日分)を上から下へコピーして、

２）sheet2のセルＡ1からＡ24まで　と　Ｂ1からＢ24まで(48データ分)を
　　反転させ、「形式を選択して貼り付け」　行列を入替えるでは
　　データは、Ａ24を突き抜けて、Ａ48までペーストします。
　　Ａ24で１段下のＢ1に折り返せば助かるのですが、、、、、

結果だけお知らせしました。
コーヒーを飲んでから、教えていただいた他の方法を落ち着いて
紐解くつもりです。

回答No.3

awa66

これがベストかどうか分かりませんが、私も初心者ですので。

　一年分を一度にコピー、andペーストは出来ないのですか。
範囲指定して全部コピーです。

駄目なら、Ｂ表の各対応するセルにＡ表のセルを参照する式を、　Ｂ表の　
１月１日のセルに　＝Ａ１　１月２日　＝Ａ２・・・・・・としてその式を
全部コピーすれば簡単に出来るのでは有りませんか。

私も、難しいことは解りませんが・・・・・・

回答No.2

nishi6

説明不足？の感もあり、再度の投稿です。
ついでに別法です。この式の8760は最後の行です。（閏年は違う？9000とかでも問題はありません）

両式とも、Sheet2の行番号、列番号からSheet1の行番号を決めています。
Sheet2の貼り付け開始位置がA1でない時は、この考え方を参考に変形することになります。

=INDEX(Sheet1!$A$1:$A$8760,(ROW()-1)*24+COLUMN(),1)

回答No.1

nishi6

Sheet1のA列にデータがあるとしています。日単位で横にしているわけですよね。

Sheet2のA1に、下をコピー。右方向に24個コピー。下に365個コピー。（最後に値にする必要があるなら、全部をコピーて終わったら値貼り付けします。）

=INDIRECT("Sheet1!A"&(ROW()-1)*24+COLUMN())

こういうこと？

補足

nishi6様へ

１年分でなく、１ヶ月分(31日)でテストしていますが、
sheet2のＡ1に指示された数式を入れ、Ａ列下方向に31行、
Ａ列右方向に24列コピーし、セル；Ｂ2からセル：Ｘ31までもコピーしました。

＃印が目いっぱいに広がってます。

この場合には、数式が違ってくるのではないか。と思ってますが。
sheet1では、なにも仕掛けをしておりません。
（Ａ1から下にデータが入っているだけです）
どこに、私の勘違いがあるのしょうか？

※　実際の作業は、sheet1のＣ２がデータのトップで下方向、
sheet2ではＢ８がデータのトップで右方向に24個です。
テストでは、どちらもＡ1から始まるように、周りを削っています。