EXCELで複数Sheetの特定セルに自動的に一連番号をつけたい

質問

Win XP→Excel 2003です。
例えばSheet 1からSheet 10まで10個のSheetがあるとします。
いまSheet 1のセルA１を「１」としてSheet 10のセルA１が「10」となるよう一連番号を付けたいのですが、出来ればVBAでなく、ワークシート関数や計算式で自動的、又は簡単に設定する方法があるでしょうか。
（例えば「編集」「フィル」「連続データの作成」のようなイメージで）
もしVBAでなければ出来ないときは構文を、またそのようなフリーのアドインソフトがあるときはそのソフト名を教えて頂ければ助かります。（例えばSuper Dev Toolみたいな）
よろしくお願いします。

回答No.1

kybo · ベストアンサー

Sheet1の「1」の文字を単純に取り出せばよいのだとして。
保存されていない場合、エラーになるので、一度ファイルを保存して入力してください。

=VALUE(REPLACE(RIGHT(CELL("filename",$B$1),LEN(CELL("filename",$B$1))-FIND("]",CELL("filename",$B$1))),1,5,""))

Sheet1の「1」が1番目のシートという意味でシートの位置が変わるたびに更新されるようにするとかであれば、VBAになります。

お礼

早速のご回答ありがとうございました。
ファイルネームをセルに引用するという発想に気がつきませんでした。
実際のSheet名はいろいろ違うので、そのまま引用して一連番号という訳にはいきませんが、Super Dev Toolを使って最初にSheet名を「1」から「N」にしておいて各Sheetのセルにそのまま引用し、値のみペースト後Sheet名を変更するなど、活用方法は何かと多いように思います。
ご教示お礼申し上げます。