アクティブなワークシート内のすべてのテーブルを範囲に変換するにはどうすればよいですか？

Excelでは、データを記録するためにいくつかのテーブルを使用することがありますが、時にはテーブルを範囲に変換して編集を容易にしたい場合があります。通常、一度に1つのテーブルしか範囲に変換できません。シート内に数十のテーブルがある場合は、この作業が煩雑になることがあります。ここで紹介するVBAコードを使用すると、アクティブなシート内のすべてのテーブルを一度に範囲に変換できます。

VBAを使用してアクティブなシートのすべてのテーブルを範囲に変換する

VBAを使用してアクティブなシートのすべてのテーブルを範囲に変換する

1. 変換したいテーブルが含まれているシートをアクティブにし、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>モジュールをクリックして新しいモジュールスクリプトを作成し、以下のコードをコピーして空のモジュールに貼り付けます。

VBA: アクティブなシートのすべてのテーブルを範囲に変換

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. F5キーを押してコードを実行します。これで、現在のシート内のすべてのテーブルが正常に範囲に変換されました。