Excel VBAエキスパート資格・スタンダード解説｜テーブルの操作

操作方法：1.●●●をクリック（スマホはタップ）で答え表示。2.答えをクリック（スマホはタップ）で●●●表示。1⇔2を繰り返すことで、記憶を定着できます。

Excel VBAのテーブルを操作するためのオブジェクトは、●●●を使用します。●●●は、テーブル内のセル範囲を効果的に扱います。

セルからテーブルを特定
Range("A1").●●●
テーブル特定は、テーブル内であればどこでもいいが、一般的には左上セルを指定します。

テーブルが存在するシートから特定
Sheets("Sheet1").●●● ' 1 はテーブルのインデックス

Sheets("Sheet1").●●● ' "テーブル1" はテーブルの名前
Sheet1 はテーブルが存在するシート名、1 はテーブルのインデックス、`"テーブル1"`はテーブルの名前です。●●● コレクションは、特定のシート内のテーブルへの参照を提供します。

※テーブルが存在しない場合やインデックスや名前が間違っている場合、エラーが発生します。

ListObject、ListObjectsの違い？
●●● オブジェクトは、特定のセル範囲を Excel テーブルとして表現します。個々のテーブルを表す●●●のテーブルオブジェクトです。テーブル内のデータやテーブルのプロパティにアクセスできます。

●●● コレクションは、特定のシート内のすべてのテーブルを含んでいます。すべてのテーブルを表す●●●のテーブルオブジェクトのコレクションです。

ListObjectの ●●●は、Excel テーブル内の特定の部分、行、列を取得するのに利用します。

Range("A1").ListObject.Range と Range("A1").ListObject.Range(3) の違い

Range("A1").ListObject.●●● は、テーブル内のすべてのセルを示します。

Range("A1").ListObject.●●● は、テーブル内のすべてのセル内で何番目のセルか示します。
※A1からE10にテーブルがある場合、Range("A1").ListObject.●●●はC1になる。

タイトルを含まないテーブル全体
●●●はテーブル内のデータ本体を取得して操作するために使用します。1行目がタイトルの場合、2行目以降が対象範囲になります。

※A1からE10にテーブルがある場合、Range("A1").ListObject.●●●はA2からE10が対象です。Range("A1").ListObject.●●●はE2になります。

見出し行
●●●はテーブル内のタイトルになります。
Range("A1").ListObject.●●● は、テーブルのタイトル（ヘッダー行）の指定です。

列
ListColumnはテーブル内の列を表します。
Range("A1").ListObject.●●●はそれぞれの列で、Range("A1").●●●は列全体です。

ListColumn、ListColumnsの違い？
●●●
Excel テーブル内の単一の列を表します。ListObject内の●●●の列に対応します。

●●●
Excel テーブル内のすべての列をまとめたコレクションです。ListObject内の●●●の列にアクセスするコレクションです。

Range("A1").ListObject●●●(2).Range
テーブル内の列のインデックスを指定して特定の列の範囲を取得します。

Range("A1").ListObject●●●("名前").Range
テーブル内の列の名前を指定して特定の列の範囲を取得します。

テーブルの特定列のタイトルを含まないデータ範囲を取得する
Range("A1").ListObject●●●(2).●●●
Range("A1").ListObject●●●("名前").●●●

テーブルの特定列のタイトルを含むデータ範囲を取得する
Range("A1").ListObject●●●(2).●●●
Range("A1").ListObject●●●("名前").●●●

行
●●●はテーブル内の行を表します。
Range("A1").ListObject.●●●はそれぞれの行で、Range("A1").ListObject.●●●は行全体です。

ListRow、ListRowsの違い？
●●●
Excel テーブル内の単一の行を表します。ListObject内の 1 行に対応します。

●●●
Excel テーブル内のすべての行をまとめたコレクションです。ListObject内のすべての行にアクセスするコレクションです。

ListRows(3）やListRows(3).Range
Range("A1").ListObject.ListRows(3)
●●●を表します。

Range("A1").ListObject.ListRows(3).Range
●●●の行を参照します。この行に含まれるセルの範囲を取得するために .Range を使用します。

構造化参照を使うと、テーブル内のデータにアクセスできます。

構造化参照の記述
テーブル名[[特殊項目指定子],[列指定子]] ●●●：タイトル行を含まないテーブル全体
[#Data] Range("テーブル1[#Data]")

●●●：列
[名前]　※列の名前
列を含む列データ
Range("テーブル1[[#All],[列見出し名]]")

列を含まない列データ
Range("テーブル1[[#Data],[列見出し名]]")

構造化参照を使ってテーブル内の●●●はできません。テーブル内の行操作は、ListObjectを使います。

テーブル内のデータを探す
Range("A1").ListObject.●●●.Autofilter 2,"山本"
Range("A1").ListObject.●●●.Autofilter 2,"山本"
テーブル内の特定の列をフィルタリングしていますが、1つ目のコードはテーブル全体を対象にフィルタリングを行い、2つ目のコードはデータ部分のみを対象にフィルタリングを行います。

タイトルごとコピー
①
Range("A1").ListObject.Range.Autofilter 2,"山本"
Range("A1").ListObject.Range.●●● Sheets("Sheet2").●●●("A1")
②
With Range("A1").ListObject.●●●
　　.Autofilter 2,"山本"
　　.●●● Sheets("Sheet2").●●●("A1")
End With
①のコードは、2番目の列で 山本 をフィルタリングして、その結果をSheet2のA1セルから始まる範囲にコピーしています。

②のコードでは、①と同様に列をフィルタリングし、その後 With ステートメントを使って同じ操作を1つのブロックにまとめています。With ステートメントを使うことで、ListObject.Range を複数回書く必要がなくなります。これにより、コードがより簡潔になり、修正が容易になります。

タイトルを含まないコピー
With Range("A1").ListObject.●●●
　　.Autofilter 2,"山本"
　　.Copy Sheets("Sheet2").●●●("A1")
End With
テーブルのデータ本体（タイトルを除くデータ部分）の特定の列をフィルタリングし、その結果を別のシートにコピーしています。

Rangeと構造化参照を使いコピー
タイトル行ごとコピーする
Range("テーブル1").AutoFilter 2,"山本"
Range("テーブル1[#All]").Copy Sheets("Sheet2").Range("A1")
テーブル（構造化参照）の特定の列をフィルタリングし、その結果を別のシートにコピーしています。

Range("テーブル1").AutoFilter 2,"山本" は、"テーブル1" という名前のテーブル内の2番目の列で"山本"をフィルタリングする操作を行います。

次の行の Range("テーブル1[#All]").Copy Sheets("Sheet2").Range("A1") は、フィルタリングされた結果（テーブル全体を含む）をSheet2のA1セルから始まる範囲にコピーしています。

タイトル行含まないでコピーする

Range("テーブル1").AutoFilter 2,"山本"
Range("テーブル1[#Data]").Copy Sheets("Sheet2").Range("A1")
テーブル（構造化参照）の特定の列をフィルタリングし、その結果を別のシートにコピーしています。

Range("テーブル1").AutoFilter 2,"山本" は、"テーブル1" という名前のテーブル内の2番目の列で"山本"をフィルタリングする操作を行います。

`Range("テーブル1[#Data]").Copy Sheets("Sheet2").Range("A1") は、フィルタリングされた結果（タイトル行を含まないデータ部分）をSheet2のA1セルから始まる範囲にコピーしています。

特定の列だけコピー
With Range("A1").ListObject
.Range.AutoFilter 2,"山本"
.●●●(1).Range.Copy Sheets("Sheet2").Range("A1")
.●●●(4).Range.Copy Sheets("Sheet2").Range("B1")
End With
特定の列だけをコピーして別のシートに貼り付けるものです。

.Range.AutoFilter 2,"山本" は、「山本」という条件で2番目の列をフィルタリングしています。
●●●(1).Range.Copy Sheets("Sheet2").Range("A1") は、フィルタリングされた結果の1番目の列（●●●(1)）をSheet2のA1セルから始まる範囲にコピーしています。

●●●(4).Range.Copy Sheets("Sheet2").Range("B1") は、同様にフィルタリングされた結果の4番目の列（●●●(4)）をSheet2のB1セルから始まる範囲にコピーしています。

特定の列だけ書式を設定
With Range("A1").ListObject
.Range.AutoFilter 2,"山本"
.ListColumns(3).●●●.Font.Bold=True
.Range.AutoFilter 2
End With
特定の条件で列の書式を設定するものです。

.Range.AutoFilter 2,"山本" は、「山本」という条件で2番目の列をフィルタリングしています。
.ListColumns(3).●●●.Font.Bold=True は、フィルタリングされた結果の3番目の列のデータ部分（●●●）のフォントを太字に設定しています。

最後の .Range.●●● は、フィルタをクリアしています。

特定の行を削除
With Range("A1").ListObject.DataBodyRange
.Range.AutoFilter 2,"山本"
●●●.Delete
.Range.AutoFilter 2
End With
特定の条件に基づいて行を削除するものです。

.Range.AutoFilter 2,"山本" は、「山本」という条件で2番目の列をフィルタリングします。●●●.Delete は、フィルタリングした結果の行を削除します。

構造化参照を使い見出しを含まないデータを削除
Range("テーブル1").AutoFilter 2,"山本"
Range("テーブル1[#Data]").EntireRow.Delete
Range("テーブル1").AutoFilter 2
特定の条件に基づいてデータを削除するものです。

Range("テーブル1").AutoFilter 2,"山本" は、「山本」という条件で2番目の列をフィルタリングしています。

Range("テーブル1[#Data]").EntireRow.Delete は、フィルタリングされた結果のデータ行全体を削除します。

最後の Range("テーブル1").AutoFilter 2 は、フィルタをクリアしています。

列を挿入する
Range("A1").ListObject●●●.Add
Range("A1").ListObject は、A1セルを含むテーブル全体を指します。●●●.Add で、テーブルに新しい列を追加します。

テーブルに列挿入した列データ範囲を指定する
Dim N As Long
N=Range("A1").ListObject.ListColumns.Count
Range("A1").Listobject.ListColumns(N).DataBodyRange.●●●
テーブルに列を追加した後、その列のデータ範囲を選択します。

Dim N As Long は、整数型の変数 `N` を宣言します。N = Range("A1").ListObject.ListColumns.Count は、テーブル内の列数を `N` に代入します。

Range("A1").ListObject.ListColumns(N).DataBodyRange.●●● は、追加された最後の列のデータ範囲を選択します。

テーブルに列挿入した列に数式設定
Dim N As Long
Range("A1").ListObject.ListColumns.Add
N=Range("A1").ListObject.ListColumns.Count
Range("A1").Listobject.ListColumns(N)●●●="=[@点数]*2"
テーブルに列を追加し、その列に数式を設定しています。

Dim N As Long は、整数型の変数 `N` を宣言します。次に、Range("A1").ListObject.ListColumns.Add は、テーブルに新しい列を追加します。

N=Range("A1").ListObject.ListColumns.Count で追加された列数を `N` に代入します。

Range("A1").ListObject.ListColumns(N)●●●="=[@点数]*2" は、新しく追加された列（N 番目の列）に数式を設定しています。

"=[@点数]*2" は、列の各セルに対して数式を適用しています。

Rangeと構造化参照を使い列を挿入
Range("テーブル1[[#Data],[#点数]").Offset(0,1)="=[@点数]*2"
特定の列に数式を挿入しています。Range("テーブル1[[#Data],[#点数]") は、「テーブル1」内の「点数」列のデータ範囲を表します。

.Offset(0,1)="=[@点数]*2" は、列の隣に新しい列を挿入し、数式 `=[@点数]*2` を列に適用します。