Excelでセルにシート名を迅速に挿入するにはどうすればよいですか？

ある1つのセルに現在のワークシート名を挿入する簡単な方法はありますか？すべてのワークシート名をセルに挿入するにはどうすればよいですか？この記事では、これらの問題を解決するための巧妙な方法をご紹介します。

関数を使用して現在のシート名をセルに挿入する

Kutools for Excelを使用してアクティブなシート名を迅速に挿入する

VBAを使用してすべてのシート名をセルに挿入する

インデックスとしてハイパーリンク付きで全てのシート名をセルに迅速に挿入する

関数を使って現在のシート名をセルに迅速に挿入する

次の数式を入力するだけで、 =RIGHT(CELL("filename",D2),LEN(CELL("filename",D2))-FIND("]",CELL("filename",D2))) 任意のセルに入力し、「Enter」キーを押します。 Enter キーを押すと、そのセルに現在のワークシート名が表示されます。

この数式は、現在のワークシート名のみを表示できますが、他のワークシート名は表示できません。

Kutools for Excelを使用してアクティブなシート名を迅速に挿入する

アクティブなシートの情報をセルやヘッダー/フッターに挿入したい場合（シート名、ブック名、ファイルパスなど）、 Kutools for ExcelのInsert Workbook Information機能を使用できます。

無料でダウンロードしてインストールした 後、以下の手順を実行してください：

1. シート名を挿入するセルまたは範囲を選択し、Kutools Plus > ワークブック > Insert Workbook Informationをクリックします。

2. 次に、挿入したいブック情報を 情報 セクションから選択し、情報を配置したい場所を 挿入位置 セクションで指定します。その後、 OK.

をクリックします。Insert Workbook Informationについてさらに詳しく知りたい場合は、ここをクリックしてください。

VBAを使用してすべてのシート名をセルに迅速に挿入する

すべてのシート名をセルに挿入したい場合、VBAマクロは良い選択です。

ステップ 1: ExcelでAlt + F11キーを押しながら開くと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

ステップ 2: 挿入 > モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

すべてのワークシート名をセルに挿入するためのVBAコード：

Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

ステップ 3: このマクロを実行するために F5 キーを押します。すると、現在のワークシートの列Aにすべてのワークシート名がリストアップされます。スクリーンショットをご覧ください：

注意: VBAコードでは、Cells(i, 1) を他の参照に変更して、シート名を別のセルから開始することもできます。たとえば、C3からシート名を挿入するには、これを Cells(i+2, 3)。

インデックスとしてハイパーリンク付きで全てのシート名をセルに迅速に挿入する

Kutools for ExcelのCreate List of Sheet Nameユーティリティは、すべてのシート名をセルに挿入するだけでなく、対応するシートへのハイパーリンクも挿入します。

無料でダウンロードしてインストールした 後、以下の手順を実行してください：

ステップ 1: 「 Kutools Plus > ワークシート> Create List of Sheet Names」をクリックします。

ステップ 2: 「 Create List of Sheet Names 」ダイアログボックスで、必要に応じて設定を指定し、「 OK.

」をクリックします。すると、新しいワークシートにすべてのシート名が挿入され、各シート名が対応するワークシートにリンクされていることが確認できます。次のスクリーンショットをご覧ください：

Create List of Sheet Nameユーティリティを使用すると、アクティブなワークブック内のすべてのワークシート名を新しいワークシートに簡単にリスト化でき、ハイパーリンクやマクロボタンを含むことで他のワークシートに迅速に移動できます。このユーティリティについてさらに詳しく知るには、こちらをクリックしてください。