複数シートのページに連続した数字を入れたい

「１」～「３０」のシート名をつけた３０枚にシートがあります。
そのすべてのシートのセルA1に１～３０の数字を入力したいのです。
一枚一枚開いて入力する以外の方法はないでしょうか。
よろしくお願いします。

No.2 ベストアンサー 回答者： noname#111181 回答日時： 2010/04/04 11:40

A1に以下の関数式を入力してください。

=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)

これは、シート名を取り出す関数式です。

この回答へのお礼

思ってたことがすんなりできて，驚きです。
ありがとうございました。

お礼日時：2010/04/04 21:40

No.4 回答者： KURUMITO 回答日時： 2010/04/04 16:57

仮にシート名がSheet1からSheet30まであるとします。

そこで初めにSheet1をアクティブ状態にしてからシート見出しでShiftキーを押しながらSheet30をクリックします。それによってSheet1からSheet30が同じ作業グループになります。
その後にSheet1のＡ1セルに次の式を入力します。

=SUBSTITUTE(TRIM(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,10)),"Sheet","")*1

最後にシー見出しで右クリックして「作業グループ解除」を選択します。
これで各シートのＡ1セルには１から30までの番号が表示されます。

この回答へのお礼

シートの名前にかかわらず，連番が打てるのですね。
すごいです。ありがとうございました。

お礼日時：2010/04/04 21:44

No.3 回答者： mar00 回答日時： 2010/04/04 13:17

シートの状況がよく分からないのですが

一番最初のシートが1、一番最後のシートまでという前提でマクロにしてみました。
30以上になってもいいように以下のマクロは１番目から最後のシートまで実行されます。

Sub Macro1()
For INP = 1 To Sheets.Count
Sheets(INP).Range("A1") = Sheets(INP).Name
Next INP
End Sub
セルA1にはシート名が入力されます。

この回答へのお礼

マクロと言うやり方もあるのですね。
やってみます。ありがとうございました。

お礼日時：2010/04/04 21:43

No.1 回答者： bin-chan 回答日時： 2010/04/04 11:20

シート名を拾う関数があります。

詳細は長くなるので以下で検索してください。
キーワード「excel シート名取得 関数」でgoogle検索したら
たぶんトップにくる「ワークシート名をセルに表示－CELL関数・FIND関数・LEN関数・RIGHT関数 ...」を参照するとわかりやすいですよ。

一括で全シートに設定を行うには

１）シート名を右クリックして「すべてのシートを選択（表現違うかも？）」をクリック。
２）今、見えてるシートのセルＡ１に式設定。
３）シート名を右クリックして「シートの選択を解除（表現違うかも？）」をクリック。
４）Ctrl+PageUp、Ctrl+PageDownでシート切り替えして結果を確認。

この回答へのお礼

とても参考になるページを紹介してくださり，ありがとうございました。

お礼日時：2010/04/04 21:37