Excelですべてのテーブル名を一覧表示するにはどうすればよいですか？

ワークブック内のすべてのテーブル名を一覧表示するために、この記事のメソッドはそれを乗り越えるのに役立ちます。

名前ボックスにすべてのテーブル名を一覧表示します
数式バーにすべてのテーブル名を一覧表示します
VBAコードを使用してすべてのテーブル名を一覧表示する

名前ボックスにすべてのテーブル名を一覧表示します

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

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

Note：すべての範囲名は、すべてのテーブル名とともに[名前]ボックスにも一覧表示されます。

数式バーにすべてのテーブル名を一覧表示します

すべてのテーブルにTable1、Table2…などの元のテーブル名が付けられている場合は、これらすべてのテーブル名を数式バーに一覧表示することができます。

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

Note：変更されたテーブル名は、このメソッドではリストされません。

VBAコードを使用してすべてのテーブル名を一覧表示する

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

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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でテーブルの列の位置を並べ替える方法は？
• ピボットテーブルのゼロ値の行を非表示にする方法は？