シート名のオートフィル

Excel2000を使用しています。

Sheet名が「1」、「2」、～「30」までSheetが30枚あります。
Sheet「31」のA列に、それぞれのSheetの<A1>の内容を参照したいのです。

='1'!A1
='2'!A1
　・
　・
　・
='30'!A1

以上の数式をオートフィルのような機能で簡単に設定できる方法があれば教えて下さい。

No.2 回答者： imogasi 回答日時： 2003/06/24 23:09

Sheet名の部分まではオートフィルの対象にならないと思います。

文字列としてSheet1!をオートフィルしてSheet2!・・とすることが出来ますが、これをシート名として活かす方法がない。
文字列をセットするのと、式を手入力するのと例え同じ
文字でも、等価ではないです。多分＃１のご回答もやって見ましたが、無理なのでは。
VBAでやると
Sub test03()
For i = 1 To 30
Worksheets("31").Cells(i, "A") = Sheets(i).Cells(1, "A")
Next i
End Sub
ただ、それもシートタブの左からの順番になります。

No.1 回答者： ja7awu 回答日時： 2003/06/24 21:47

Sheet31のA1に

=INDIRECT("'" & ROW() & "'!A1")

でどうですか。