4 Excel ブック内のすべてのワークシート名を一覧表示する効率的な方法

大規模なExcel ワークブックで多数のワークシートをナビゲートするのは面倒です。特に、利用可能なすべてのシートを素早く確認したいときなどはなおさらです。この記事では、ワークブック内のすべてのワークシート名を一覧表示するための4 つの実用的な方法をご紹介し、生産性とワークブックの整理を向上させます。

ワークブック内のすべてのシート名を一覧表示

• コピー＆ペーストを使用（手動）
• Kutools for Excel を使用（簡単で、シート名にリンク可能）
• 名前付き範囲を使用（新しいシートに一覧表示）
• VBA を使用（不安定）

ワークブック内のすべてのシート名を一覧表示

このチュートリアルでは、ワークブック内のすべてのシートを一覧表示するための4 つの効果的な方法をご紹介します。ご自身のニーズに最も合う方法をお選びいただき、ステップバイステップの手順に従ってスムーズにタスクを完了してください。

コピー＆ペーストを使用（手動）

すべてのワークシート名を一覧表示する最もシンプルな方法は、手動での操作です：

手順1：新しいワークブックを開く

手順2：コピーしたいシートのタブをダブルクリックする

手順3：Ctrl + C キーを押してシート名をコピーする

手順4：セルをクリックして Ctrl + V を押し、シート名を貼り付ける

手順5：上記の手順を繰り返して、すべてのシートタブ名を1 つずつワークブックにコピー＆ペーストする

この方法は少数のシート名には適していますが、数十ものシートがある場合は時間がかかります。大規模なワークブックの場合は、以下で説明するより効率的な方法をご検討ください。

Kutools for Excel を使用（簡単で、シート名にリンク可能）

Kutools for Excel の「リンクテーブルの作成」機能は、ワークシート名付きのリンクリストをExcel 上で素早く生成し、操作性を大幅に向上させます。各シートに対して自動でハイパーリンクを設定するため、クリックするだけで目的のシートに直接移動可能。大規模なワークブックの管理に最適で、手動での操作よりもずっと効率的かつ簡単です。

「KUTOOLS PLUS」＞「ワークシート」＞「リンクテーブルの作成」をクリックします。表示されるダイアログボックスで、以下の設定を行ってください。

1. 目次のスタイルを選択してください（リンク可能なシート名をハイパーリンクテキストとして表示するか、ボタンとして表示するか）。

2. シート名の一覧を表示する新しいシートの名前を指定します。

3. 新しいシートの配置場所を指定してください。

4. シート名を分割表示する際に使用する列数を指定してください。

5. 「OK」をクリックしてください。

   

シートを素早く表示して簡単に切り替えるには、Kutools for Excel の「ナビゲーション」機能が非常に効果的です。この機能は、すべてのシート名をクリック可能なリンクとして一覧表示し、簡単にアクセスできるだけでなく、開いているすべてのワークブックも表示して、素早い切り替えを可能にします。

名前付き範囲を使用（新しいシートに一覧表示）

Excel では、名前付き範囲を作成すれば、新しいシートにすべてのシート名を効率よく一覧表示できます。

手順1：［数式］タブの［名前の定義］をクリックします。

手順2：［新しい名前］ダイアログボックスで、名前と数式を編集します。

• 「名前」：名前付き範囲の名前を入力

• 「参照範囲」：以下の数式をここにコピー＆ペースト

  =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

• 「OK」をクリックしてください。

  

手順3：数式を使ってシート名を一覧表示します。

セルに次の数式を入力して「Enter」キーを押すと、すべてのシート名が取得されます。

=TRANSPOSE(ListNames)

ListNames は、上記の手順で名前付き範囲に付けた名前です。

VBA を使用（不安定）

より高度でカスタマイズ性の高い方法として、VBA スクリプトを記述してワークシート名を抽出・一覧表示するという選択肢があります。

手順1：シート名を一覧表示したいブックを開きます。

手順2：Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

手順3：［挿入］＞［標準モジュール］をクリックします。

手順4：以下のコードをモジュールにコピー＆ペーストしてください。

Sub ListSheetNamesInNewWorkbook()
'UpdatebyExtendoffice
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' Reference the current workbook
    Set wbSource = ActiveWorkbook
    
    ' Create a new workbook
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    
    ' List all sheet names from the active workbook in the new workbook
    For i = 1 To wbSource.Sheets.Count
        wsTarget.Cells(i, 1).Value = wbSource.Sheets(i).Name
    Next i
    
    ' Cleanup
    Set wbSource = Nothing
    Set wbTarget = Nothing
    Set wsTarget = Nothing
End Sub

手順5：F5 キーを押すか、［実行］ボタンをクリックして、コードを実行します。

これにより、すべてのワークシート名が一覧表示された新しいワークブックが開きます。

それぞれの方法には目的に応じた独自のメリットがあります。簡単な手動の一覧表示から、KutoolsやVBAといった高度なソリューションまで、ご自身のワークフローに最適な方法を選んで、Excel ワークシートをより効率的に管理・ナビゲートしましょう！さらに役立つExcel のヒントやテクニックは、当社ブログをご覧ください。