Excel VBA でテーブル参照を使用する方法 (20 例)

大規模なデータセットを含む Excel ブックでは、テーブルをその範囲全体ではなく名前で参照すると便利な場合があります。 Excel で VBA を使用することは、操作を実行する最も高速で信頼性が高く、最も効率的な方法です。 「Excel VBAでテーブルを参照する方法」を知るための特別なトリックを探しているなら、あなたは正しい場所に来ました. Excel でテーブルを参照するには、さまざまな方法があります。この記事では、これらの方法の詳細について説明します。このすべてを学ぶために完全なガイドに従ってみましょう.

ListObject プロパティでテーブルを参照

VBA コードの作成中、ListObjects Excel テーブルを参照するために使用されます。 Excel テーブルは、VBA LISTOBJECTS を使用して作成および削除できます .ただし、Excel テーブルの使用は、初心者にとっては難しい場合があり、中級ユーザーにとってはある程度難しいこともあります。この記事では、Excel テーブルの参照について説明しているためです。 VBA をコーディングするときは、Excel のテーブルについてよく理解しておくことが重要です。

たとえば、Excel ワークシートでテーブル全体を選択するには、次の VBA コードを記述する必要があります。

ActiveSheet.ListObjects("Table_ref_1").Range.Select

このコード行はテーブルを選択します (「Table_ref_1」はデータセット内のテーブル名です)。

VBA コードを使用して Excel でテーブル参照を使用する 20 の適切な例

次のセクションでは、Excel でテーブルを参照するための 20 の効果的でトリッキーな例を使用します。このタスクを実行するには、VBA コードを使用する必要があります。これは、Visual Basic for Applications (VBA) と呼ばれる Microsoft のイベント駆動型プログラミング言語です。この機能を使用するには、まず 開発者 が必要です タブがリボンに表示されます。ここをクリックして、リボンに [開発] タブを表示する方法を確認してください .このセクションでは、これらの方法について詳しく説明します。これらを学び、応用して、思考力とエクセルの知識を向上させてください。 Microsoft Office 365 を使用しています ここではバージョンを使用できますが、好みに応じて他のバージョンを利用することもできます。

1.テーブル全体を選択

ここでは、テーブル全体を選択する方法を示します。まず、Excel で作成済みのテーブルを参照するには、まずテーブルを ListObject として宣言する必要があります。次に、Excel で使用可能な名前の表を参照してください。デモンストレーションの目的で、次のデータセットを使用します。

これを行うには、次のプロセスに従う必要があります。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Select_whole_Table()
ActiveSheet.ListObjects("Table_ref_1").Range.Select
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから [実行] -> [サブ/ユーザー フォームの実行] を選択します .小さな Play をクリックすることもできます サブメニュー バーのアイコンをクリックして、マクロを実行します。

• したがって、以下に示すようにテーブル全体が選択されます。

2.テーブル全体をコピー

この方法では、テーブル全体をコピーする方法を示します。以下は、Excel VBA でテーブルを参照するポイントを示すために使用するデータセットです。

次の手順に従って、テーブル全体を Excel にコピーしましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub copy_whole_Table()
ActiveSheet.ListObjects("Table_ref_18").Range.Copy
End Sub

• 次に、コードを保存します。
• では、 F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すようにテーブル全体がコピーされます。

3.テーブルの列の参照

ここでは、列のテーブルを参照する方法を示します。以下は、Excel VBA でテーブルを参照するポイントを示すために使用するデータセットです。

次の手順に従って、Excel でテーブルの列を参照してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub ReferenceEntireColumn()
ActiveSheet.ListObjects("Table_ref").ListColumns("Seller").Range.Select
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから [実行] -> [サブ/ユーザー フォームの実行] を選択します .小さな Play をクリックすることもできます サブメニュー バーのアイコンをクリックして、マクロを実行します。

• したがって、以下に示すように、テーブルの列全体が選択されます。

4.テーブルのセルから値を取得

ここでは、テーブルのセルから値を取得する方法を示します。私たちの要点を実証する目的で、以下のデータセットを提供しました。

次の手順に従って、Excel のテーブルのセルから値を取得してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub get_Value()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_2")
Set Value = Table1.DataBodyRange.Columns(1).Find("Sam", LookAt:=xlWhole)
MsgBox Value
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから [実行] -> [サブ/ユーザー フォームの実行] を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、テーブルのセルから値を取得します。

5.行に入る

次に、既存のテーブルに新しい行を入力する方法を説明します。デモンストレーションの目的で、次のデータセットを使用します。

次の手順に従って、Excel の既存のテーブルに新しい行を入力してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Entering_row()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_3")
Table1.ListRows.Add
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、既存のテーブルに新しい行が追加されます。

6.列に入る

次のデモでは、既存のテーブルに新しい列が追加されます。デモンストレーションの目的で、次のデータセットを使用します。

次の手順に従って、既存のテーブルに新しい列を入力してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Entering_Column()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_4")
Table1.ListColumns.Add
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、既存のテーブルに新しい列が入力されます。

7.テーブルのフィルタリング

次の例は、Excel でテーブルをフィルター処理する方法を示しています。私たちの要点を実証する目的で、以下のデータセットを提供しました。

次の手順に従って、Excel でテーブルをフィルター処理してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Select_AutoFiltered_VisibleRows_NewSheet()
 ActiveSheet.ListObjects("Table_25").Range.AutoFilter _
    Field:=2, Criteria1:="=Texas"
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、「テキサス」テキストに基づいてテーブルをフィルタリングします。

8.テーブルからの行と列の削除

ここでは、テーブルから行と列を削除する方法を示します。次のデータセットを使用して、ポイントを示します。

次の手順に従って、Excel のテーブルから行と列を削除してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub delete_row_column()
ActiveSheet.ListObjects("Table_ref_9").ListRows(2).Delete
ActiveSheet.ListObjects("Table_ref_9").ListColumns(2).Delete
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、テーブルから行と列が削除されます。

9.列ヘッダーのないテーブルからのデータの選択

ここでは、列ヘッダーのないテーブルからデータを選択する方法を示します。データセットは次のようになります:

次の手順に従って、Excel で列ヘッダーのないテーブルからデータを選択してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub ReferenceEntireColumnWithoutHeader()
ActiveSheet.ListObjects("Table_ref_6").ListColumns("Seller").DataBodyRange.Select
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから [実行] -> [サブ/ユーザー フォームの実行] を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように、列ヘッダーのないテーブルからデータが選択されます。

10.列ヘッダーの選択

このセクションでは、列ヘッダーを選択する方法を示します。私たちの主張を実証するために、以下のデータセットを提供しました。

次の手順に従って、Excel で列ヘッダーを選択してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Selecting_Column_Header()
ActiveSheet.ListObjects("Table_ref_7").HeaderRowRange(4).Select
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから [実行] -> [サブ/ユーザー フォームの実行] を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すように列ヘッダーが選択されます。

11.行全体を選択

ここでは、行全体を選択する方法を示します。 .以下は、要点を示すために使用するデータセットです。

次の手順に従って、Excel で行全体を選択してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Selecting_row_entire()
ActiveSheet.ListObjects("Table_ref_8").ListRows(3).Range.Select
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .小さな Play をクリックすることもできます サブメニュー バーのアイコンをクリックして、マクロを実行します。

• したがって、以下に示すように行全体が選択されます。

12.表の範囲のサイズ変更

ここで、テーブルの範囲のサイズを変更する方法を説明します。私たちの要点を実証する目的で、以下のデータセットを提供しました。

次の手順に従って、Excel でテーブルの範囲のサイズを変更してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub resize()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_5")
Dim Rng As Range
Set Rng = Range("B4:C8")
Table1.Resize Rng
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下に示すようにテーブルの範囲のサイズが変更されます。

13.表スタイルの変更

ここでは、表のスタイルを変更する方法を示します。以下は、Excel VBA でテーブルを参照するポイントを示すために使用するデータセットです。

次の手順に従って、Excel で表のスタイルを変更してみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub ChangingTable1_Style()
ActiveSheet.ListObjects("Table_ref_12").TableStyle = "TableStyleLight15"
End Sub

• 次に、コードを保存します。
• では、 F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• したがって、以下のようにテーブル スタイルが変更されます。

14.デフォルトの表スタイルを設定

ここでは、デフォルトのテーブル スタイルを示します。以下は、Excel VBA でテーブルを参照するポイントを示すために使用するデータセットです。

次の手順に従って、Excel で既定のテーブル スタイルを設定しましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Setting_Default_Table1_Style()
ActiveWorkbook.DefaultTableStyle = "TableStyleMedium2"
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .小さな Play をクリックすることもできます サブメニュー バーのアイコンをクリックして、マクロを実行します。

• したがって、以下に示すようにデフォルトのテーブル スタイルが設定されます。

15.テーブル内のすべてのセルをループ

この例では、テーブル内のすべてのセルをループする方法を示します。 VBA でテーブルの各行をループするには、ListRows.Count を使用します 財産。 Excel VBA でテーブルを参照するポイントを示す目的で、以下のデータセットを提供しています。

次の手順に従って、Excel のテーブル内のすべてのセルをループしてみましょう。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Loopingthrough()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_14")
For i = 1 To Table1.ListRows.Count
    Table1.ListRows(i).Range.Select
Next i
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .小さな Play をクリックすることもできます サブメニュー バーのアイコンをクリックして、マクロを実行します。

• したがって、以下に示すように、これはテーブル内のすべてのセルをループします。

16.テーブル ヘッダーを表示する

ここで、テーブル ヘッダーを表示する方法を説明します。 Excel VBA でテーブルを参照するポイントを示す目的で、以下のデータセットを提供しています。

次の手順に従って、テーブル ヘッダーを Excel で表示できるようにします。

📌 手順:

• VBA には、作業用の独自のウィンドウがあります。このウィンドウにもコードを挿入する必要があります。 VBA ウィンドウを開くには、開発者 リボンのタブ。次に、Visual Basic を選択します コードから グループ。

• VBA モジュールは、Visual Basic Editor のコードを保持します。ファイル拡張子は .bcf です。 VBA エディター ウィンドウから簡単に作成または編集できます。コードのモジュールを挿入するには、挿入 タブをクリックします。次に モジュール をクリックします ドロップダウンから。

• その結果、新しいモジュールが作成されます。モジュールがまだ選択されていない場合は、モジュールを選択します。その中に次のコードを書き留めてください。

Sub Table_header_visible()
ActiveSheet.ListObjects("Table_ref_15").ShowHeaders = True
End Sub

• 次に、コードを保存します。
• では、F5 を押してください キーボードで、またはメニュー バーから Run -> Run Sub/UserForm を選択します .サブメニュー バーの小さな再生アイコンをクリックして、マクロを実行することもできます。

• Therefore, this will make the table header visible as shown below.

17. Counting Rows and Columns

Our next step is to demonstrate how to count the rows and columns from a table. Following is a dataset that we will use to demonstrate our point.

Let’s walk through the following steps to count rows and columns from a table in Excel.

📌 Steps:

• VBA has its own separate window to work with. You have to insert the code in this window too. To open the VBA window, go to the Developer tab on your ribbon. Then select Visual Basic from the Code group.

• VBA modules hold the code in the Visual Basic Editor. It has a.bcf file extension. We can create or edit one easily through the VBA editor window. To insert a module for the code, go to the Insert tab on the VBA editor. Then click on Module from the drop-down.

• As a result, a new module will be created. Now select the module if it isn’t already selected. Then write down the following code in it.

Sub counting_rows_columns()
 rowNumber = ActiveSheet.ListObjects("Table_ref_16").ListRows.Count
columnNumber = ActiveSheet.ListObjects("Table_ref_16").ListColumns.Count
MsgBox "Number of Rows: " & rowNumber & vbCrLf & _
        "Number of Columns: " & columnNumber
End Sub

• Next, save the code.
• Now, press F5 on your keyboard, or from the menu bar select Run -> Run Sub/UserForm . You can also just click on the small Play icon in the sub-menu bar to run the macro.

• Therefore, this will count rows from a table as shown below.
• This will count rows from a table as shown below.

18. Check If There Is Any Table in Worksheet

Here, we will demonstrate how to check if there is any table in the worksheet. For the purpose of demonstrating our point to reference a table with Excel VBA, we have provided a dataset below.

Let’s walk through the following steps to check if there is any table in the worksheet in Excel.

📌 Steps:

• VBA has its own separate window to work with. You have to insert the code in this window too. To open the VBA window, go to the Developer tab on your ribbon. Then select Visual Basic from the Code group.

• VBA modules hold the code in the Visual Basic Editor. It has a.bcf file extension. We can create or edit one easily through the VBA editor window. To insert a module for the code, go to the Insert tab on the VBA editor. Then click on Module from the drop-down.

• As a result, a new module will be created. Now select the module if it isn’t already selected. Then write down the following code in it.

Sub Checking_If1_Table1_Exists()
Dim ws1 As Worksheet
Dim tbl1 As ListObject
Dim tbl1Name As String
Dim tbl1Exists As Boolean
tbl1Name = "Table_ref_17"
For Each ws1 In ActiveWorkbook.Worksheets
    For Each tbl1 In ws1.ListObjects
        If tbl1.Name = tb1lName Then
            tb1lExists = True
        End If
    Next tbl1
Next ws1
If tbl1Exists = True Then
    MsgBox "Table " & tb1lName & " Doesn’t Exists."
Else
    MsgBox "Table " & tbl1Name & " Exists."
End If
End Sub

• Next, save the code.
• Now, press F5 on your keyboard, or from the menu bar select Run -> Run Sub/UserForm . You can also just click on the small Play icon in the sub-menu bar to run the macro.

• Therefore, this will check if there is any table in the worksheet as shown below.

19. Convert a Table to Normal Range

Here is an example of how a table can be converted into a normal range. Following is a dataset that we will use to demonstrate our point to reference a table with Excel VBA.

Let’s walk through the following steps to convert a table to a normal range in Excel.

📌 Steps:

• VBA has its own separate window to work with. You have to insert the code in this window too. To open the VBA window, go to the Developer tab on your ribbon. Then select Visual Basic from the Code group.

• VBA modules hold the code in the Visual Basic Editor. It has a.bcf file extension. We can create or edit one easily through the VBA editor window. To insert a module for the code, go to the Insert tab on the VBA editor. Then click on Module from the drop-down.

• As a result, a new module will be created. Now select the module if it isn’t already selected. Then write down the following code in it.

Sub Converting_Table1_To_NormalRange()
ActiveSheet.ListObjects("Table_ref_11").Unlist
End Sub

• Next, save the code.
• Now, press F5 on your keyboard, or from the menu bar select Run -> Run Sub/UserForm . You can also just click on the small Play icon in the sub-menu bar to run the macro.

• Therefore, this will convert a table to a normal range as shown below.

20. Delete a Table

Here, we will demonstrate how to delete a table. Following is a dataset that we will use to demonstrate our point to reference a table with Excel VBA.

Let’s walk through the following steps to delete a table in Excel with VBA code.

📌 Steps:

• VBA has its own separate window to work with. You have to insert the code in this window too. To open the VBA window, go to the Developer tab on your ribbon. Then select Visual Basic from the Code group.

• VBA modules hold the code in the Visual Basic Editor. It has a.bcf file extension. We can create or edit one easily through the VBA editor window. To insert a module for the code, go to the Insert tab on the VBA editor. Then click on Module from the drop-down.

• As a result, a new module will be created. Now select the module if it isn’t already selected. Then write down the following code in it.

Sub delete_table_entire()
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("Table_ref_10")
Table1.Delete
End Sub

• Next, save the code.
• Now, press F5 on your keyboard, or from the menu bar select Run -> Run Sub/UserForm . You can also just click on the small Play icon in the sub-menu bar to run the macro.

• Therefore, this will delete a table as shown below.

結論

That’s the end of today’s session. I strongly believe that from now, you may be able to reference a table with Excel VBA. If you have any queries or recommendations, please share them in the comments section below.

Don’t forget to check our website Exceldemy.com for various Excel-related problems and solutions. Keep learning new methods and keep growing!

Read More…

Changing Case using Worksheet Functions and Excel VBA

[8 Tips] How to Make Excel Tables Look Good!