エクセルで最後行に入力したデーターを自動で別の（ファイル）シートの任意の場所に自動で転記できるようにしたいのですが・・。

質問

全くの初心者です。よろしくお願いします。
初心者にもかかわらず無謀にもエクセルで最後行に入力したデーターを自動で別の（ファイル）シートの任意の場所に自動で転記し、上下が逆になる形にしたいと思います。

例）
A B C D E F
1 a aa ab ac ad
2 b ba bb bc bd
3 c ca cb cc cd
4 d da db dc dd

行４に　d da db dc ddを入力すると

A B C D E F E
1
2
3　d da db dc dd
4　c ca cb cc cd
5　b ba bb bc bd　　　　　　　　　
6　a aa ab ac ad　　　　　　　　　

別（ファイル）シートの任意の場所へ挿入する形で転記され、入力のシートとは上下が逆になる。

　何かよい方法がありましたら、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

これは難しいと思います。
たとえ回答が出ても、初心者ではその式の意味を理解できない恐れもあると思う。下記以外の回答は、出たら関数の超上級編です。
エクセルは、持ってくる先のセルで考えて、入力の都度や、入力のデータ内容によって、もって来るもとのセルが変わるようなタイプの
問題は苦手です。抜き出しなどです。この質問も、完成後のシートＡ３セルに来るデータのセルが、今はＡ４セルからですが、次ぎの段階ではＡ５からと動きますが、これが困難な点です
ーー
どういう方法をイメージしているのか、質問には銘記のこと。
（１）人手操作
（２）関数
（３）ＶＢＡ
（４）その他
初心者ということで（３）は対象外でしょうが、（２）などを考えているのかな。
ーー
（１）に当たります。
データ入力完成後、元データに連番を振り、完成シートにコピーして、連番の逆順でソート（並べ替え）をするのが一番簡単です。
ーーー
入力最終行を捉えるには
Ａ列にＡ２から（Ａ１は見出しなどの為に、あけてある）
1
2
3
4
6
7
8
123

の時、同じシートＳｈｅｅｔ１では　=INDIRECT("A"&COUNT(A2:A30)+1)
別のシートＳｈｅｅｔ２なら　=INDIRECT("Sheet1!A"&COUNT(Sheet1!A2:A30)+1)
です。Ａ３０行より下には入力しないと仮定してます。
これを応用して
Ｓｈｅｅｔ２のＡ４から下行に並べるとして
Ａ４に　=INDIRECT("Sheet1!A"&COUNT(Sheet1!$A$2:$A$30)+1-(ROW()-4))
Ｂ４に　=INDIRECT("Sheet1!B"&COUNT(Sheet1!$A$2:$A$30)+1-(ROW()-4))
を入れて、下方向に式を複写する。Ａ，Ｂ２れつの例に簡略化。
結果
123 22
8 21
7 20
6 19
4 18
3 17
2 16
1 15
0 0
#REF! #REF!
ーー
問題が残っているのは
0 0
#REF! #REF!
・・
ですが、
もし現在の行番号Ｒｏｗ（）－４（－４はＳｈｅｅｔ２の第４行目からはじめているから）が、COUNT(Sheet1!$A$2:$A$30)より大きい場合は、ＩＦ関数で判断して、空白にするように式を組み立てる必要がある。
結果式
　=IF(ROW()-3>COUNT(Sheet1!$A$2:$A$30),"",INDIRECT("Sheet1!A"&COUNT(Sheet1!$A$2:$A$30)+1-(ROW()-4)))
と入れて、Ａ４：Ａ３０（３０行までを対象に考えているから）へ式を複写する。
Ｂ列は　INDIRECT("Sheet1!B・・・に（Ａ列の式のＡ－＞Ｂに）改める。
Ｂ４：Ｂ３０まで式を複写。
結果データ
123 22
8 21
7 20
6 19
4 18
3 17
2 16
1 15
以下式のみで、値は空白

お礼

わかりやすく解説までいただき、ありがとうございました。大変役に立ちました。

補足

A列

1
2
3
4
6
7
8
123

　の代わりに年月日（2007/7/14）を入力したところ、奇妙な数字（39277）がでました。これを何とかできないでしょうか、よろしくお願いします。

回答No.3

noname#204879

元データが ブック kei__2000.xls の Sheet1 にあると仮定すると、
別ブックの任意のシートの任意のセル（ここでは セル A3）に次式を入力して、此れを右方および下方に複写すればＯＫかと。

=IF(COUNTA([kei__2000.xls]Sheet1!$A:$A)-ROW([kei__2000.xls]Sheet1!A1)<0,"",OFFSET([kei__2000.xls]Sheet1!$A$1,COUNTA([kei__2000.xls]Sheet1!$A:$A)-ROW([kei__2000.xls]Sheet1!A1),COLUMN([kei__2000.xls]Sheet1!A1)-1))

お礼

このやり方ですと、簡単に作ることができました。ありがとうございました。

補足

セルに年月日（2007/7/14）を入力したところ、奇妙な数字（39277）がでました。もしよろしければ、こちらも教えていただきたく、お願いいたします。

回答No.1

maron--5

◆別シートのB3の式
B3=IF(COUNTA(Sheet1!$A$4:$E$4)=5,OFFSET(Sheet1!A$4,1-ROW(A1),),"")
★右と下にコピー

お礼

ありがとうございました、参考にさせていただきたいと思います。