【エクセル】リストを複数シートのA1セルに記述

色々と調べてみたのですが、どうしても自分の
やりたいことと違ってしまうので、知恵をお貸しください。

・シート数が100ある
・最初のシートに目次をつける（100行）
・最初のシート100行を参照して、複数シートのA1セルに順番に記述

１シート目
A
B
C
D
E
・
・
・
↓↓↓

２シートA1セル
A

３シートA1セル
B

４シートA1セル
C

・
・
・


このようなことは可能でしょうか？
参照するのは１つのシートからにしたいです。

どうか、お知恵をお貸しください。

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/12/20 16:52

簡単な方法：

ALT+F11を押す
現れた画面でCtrl+Gを押す
現れたウィンドウに
for i = 2 to worksheets.count : worksheets(i).range("A1").formula = "=" & worksheets(1).name & "!A" & i-1 : next i
と記入しEnterキーを押す
ファイルメニューから終了してエクセルに戻る

以上です。




エクセルの一般機能だけで行う方法：
２枚目から１０１枚目まで１００枚ある各シートが，「自分はいったいどこを取りに行けばいいのか」を知らしめるヒントが必要です。
先に言っておくと，エクセルの関数では「自分が何枚目のシートなのか」を知る方法はありませんので，別に仕込みをしなければできません。

簡単な作成例
１枚目のシートのシート名を「Sheet0」とする
２枚目のシート名を「Sheet1」とする
３枚目のシート名を「Sheet2」とし，以下101枚目のシート名を「Sheet100」とする

手順：
ブックを保存する（必須）
２枚目から１０１枚目までのシートを「作業グループ」にする
Ｂ１セルに
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,9)
と式を入れ，
Ａ１セルに
=INDEX(Sheet0!A:A,SUBSTITUTE(B1,"Sheet",""))
と記入し，作業グループを解除する

＃もちろん計算のリクツが判った後は，Ｂ１を使わずに直接Ａ１の式だけで組み立てて構いません。

この回答へのお礼

ご丁寧にありがとうございます。
お礼が遅くなりまして申し訳ありません。

お礼日時：2011/12/23 18:15

No.3 回答者： mu2011 回答日時： 2011/12/20 17:09

マクロ（ＶＢＡ）で一気に埋め込む方法ですが如何でしょうか。

Sheet1のＡ１以下に目次の文字列が入力されている事としています。

■Sheet1（目次シート）タブ名上で右クリック→コードの表示（新たにVBE画面が表示）→
　以下のコードを貼り付け→Ｆ５キー押下
　因みにマクロが用済みの場合、VBE画面の貼り付けたコードを全て削除して、VBEを
　終了させて下さい。
　　　　　　
■サンプルコード
Sub sample()
For i = 2 To Worksheets.Count
Sheets(i).Range("A1") = Range("A" & i - 1)
Next
End Sub

この回答へのお礼

ご丁寧にありがとうございます。
お礼が遅くなりまして申し訳ありません。
VBA、勉強しないといけないなと思いました。

お礼日時：2011/12/23 18:18

No.2 回答者： mt2008 回答日時： 2011/12/20 16:56

マクロで良いなら

Sub Sample()
　　Dim i
　　For i = 2 To ThisWorkbook.Worksheets.Count
　　　　Worksheets(i).Range("A1") = Worksheets(1).Range("A" & i - 1)
　　Next i
End Sub

グラフシートなどが無い事が条件です。

この回答へのお礼

シンプルで良いですね。
ありがとうございます。
お礼が遅くなりまして申し訳ありません。

お礼日時：2011/12/23 18:15