VBAでできます。
「シート名」という名のシートを開いた状態で、
[ツール]→[マクロ]→[Visual Basic Editer]を起動し、下記のスクリプトを貼り付けます。
そこで、F5キーを押してください。
「シート名」シートの、A1からシート名をすべて記入していきます。
がんばってください。
Sub getsheetname()
Dim myWS As Worksheet
Dim mysheet As String
Dim i As Integer
i = 0
For Each myWS In Worksheets
i = i + 1
mysheet = myWS.Name
Sheets("シート名").Cells(i, 1).Value = mysheet
Next
End Sub
投稿日時 - 2004-06-08 17:04:33
お礼
すばらしい！！！
簡単にできました。。。
本当にありがとうございました。
最初控えめに「シートは50」と書きましたが
実は200以上あって、めげていたところです。。。
ありがとうございました。
感激です。。
投稿日時 - 2004-06-08 17:20:22
2人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（3件中 1～3件目)
マクロ(VBA)はお使いになったことがありますでしょうか？
[ツール]-[マクロ]-[VisualBasicEditor]を選択し、出てきた画面の左端、ツリー上に何か表示されているところで右クリック⇒「追加」⇒「標準モジュール」としてください。
画面右側に空白のエリアが出てくると思うので、そこに
Public Function GetSheetName(Index As Long) As String
GetSheetName = Worksheets(Index).Name
End Function
と書いて保存。
元のエクセルの画面に戻って、A1～A50に
「=GetSheetName(Row())」
と書いてください。
どうでしょう？シート名が出てきませんか？
投稿日時 - 2004-06-08 17:13:09
Yamane-D さんのお返事欄を拝借して
皆様にお礼をお伝えしたいと思います。
おかげさまで、希望通りの作業ができました。
本当に助かりました。
またなにかの際には是非お力を貸してください。
有難うございました。
投稿日時 - 2004-06-08 17:34:10
No1です。
http://www.vector.co.jp/soft/win95/business/se282988.html?site=n
こちらのシェアウェアで出来るようです。
1ヶ月間は試行期間とのことなので試してみてはいかがでしょう。
投稿日時 - 2004-06-08 17:10:19