[[20170711112617]] 『シートコピーして参照のセルを1行ずつ下へ』(サトー) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シートコピーして参照のセルを1行ずつ下へ』(サトー)

よろしくお願いします。
決まった形式で作ったシート『1』のA1に『=Sheet1!A1』数式が入っています。
Sheet1のA列には20〜30行程度のデータが入っています。
シート『1』をコピーして新しいシート『2』のA1に、『=Sheet1!A2』
シート『2』をコピーして新しいシート『3』のA1に、『=Sheet1!A3』
と言うように、左のシートをコピーしたら参照のセルを1行ずつ降りる方法がありましたら教えてください。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


マクロならば、シートコピー後に、Formulaプロパティに好きにセットするだけの話。

手作業ならば、シートだけ先にコピーしておいてから、どこかに「=Sheet1!A2」の式を埋め、これをドラッグしてA3,A4…という式を作成。このセルを各シートにコピペしていけば良いかと思います。
(???) 2017/07/11(火) 11:54


 これ、Sheet1のA列のシート名番地のセルを求めるということでいいのだろうか?
 また、10とか20とかの二桁のシート名もあるのだろうか?
(ねむねむ) 2017/07/11(火) 11:58

すみません。マクロは良く分かりません。

ドラッグはせずに決まったセルの場所に参照させています。

ねむねむさんの仰るとおりです。
シート名は1から連番で二桁にもなります。
(サトー) 2017/07/11(火) 12:06


私の案の1行目以外は、手作業の方法を書いたのですが?

手作業が嫌ならば、ちょっと面倒な式になりますが、コピー先シートのA1セルに以下の数式を埋めてみてください。なお、この式はブックをファイル保存していないと、思ったように動作しません。

 =INDIRECT("sheet1!A"&MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99))
(???) 2017/07/11(火) 13:00

 少々かぶるが。
 =INDEX(Sheet1!A1:A50,SUBSTITUTE(RIGHT(CELL("filename",A1),2),"]","")*1)
 ではどうか。

 なお、一度も保存していないブックの場合はエラーになる。
(ねむねむ) 2017/07/11(火) 13:06

???さん、ねむねむさん
ありがとうございました!!
これで作業が楽になりました。

(サトー) 2017/07/11(火) 13:49


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.