Excelで全てのテーブル名をリストするにはどうすればよいですか？

ワークブック内のすべてのテーブル名をリストするには、この記事の方法が役立ちます。

名前ボックスにすべてのテーブル名をリストする
数式バーにすべてのテーブル名をリストする
VBAコードを使用してすべてのテーブル名をリストする

名前ボックスにすべてのテーブル名をリストする

すべてのテーブル名はデフォルトで名前ボックスにリストされています。

左上隅にある名前ボックスのドロップダウンリストの矢印をクリックすると、すべてのテーブル名が表示されます。スクリーンショットをご覧ください：

注: すべての範囲名も名前ボックスにテーブル名と一緒にリストされています。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

数式バーにすべてのテーブル名をリストする

すべてのテーブルがTable1、Table2などの元のテーブル名で命名されている場合、これらのすべてのテーブル名を数式バーにリストすることができます。

1. 数式バーに =ROW(T と入力すると、以下のスクリーンショットに示すように、すべてのテーブル名がリストボックスに表示されます。

注: 変更されたテーブル名はこの方法ではリストされません。

VBAコードで全てのテーブル名をリストする

ワークブック内にデフォルトのテーブル名と変更されたテーブル名がある場合、次のVBAコードを使用してそれらを一度にリストできます。

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

2. Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックします。その後、下記のVBAコードをモジュールウィンドウにコピーします。

VBAコード: Excelで全てのテーブル名をリストする

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. F5キーを押すか、実行ボタンをクリックしてコードを実行します。

そして、以下のようにすべてのテーブル名がリストされた「テーブル名」という新しいワークシートが作成されます。スクリーンショットをご覧ください：

関連記事：

• Excelでセルにテーブルまたはピボットテーブル名を表示するにはどうすればよいですか？
• Excelで保護されたワークシートにテーブル行を挿入してテーブルを拡張可能にするにはどうすればよいですか？
• Excelでテーブル内の列の位置を並べ替えるにはどうすればよいですか？
• ピボットテーブルでゼロ値の行を非表示にするにはどうすればよいですか？