実務で最もやる機会が多いであろう、テーブル内の特定データをコピーするやり方を解説します。ここでは、下図のテーブルから、[名前]が"田中"であるデータだけを、別のシートにコピーしてみます。なお、コピー元のテーブルはアクティブシートにあり、コピー先はSheet2とします。 タイトル行ごとコピーする Sub Sample1() With Range("A1").ListObject.Range .AutoFilter 2, "田中" .Copy Sheets("Sheet2").Range("A1") .AutoFilter 2 End With End Sub 【実行結果】 タイトル行を除いて実データだけコピーする Sub Sample2() With Range("A1").ListObject.DataBodyRange .AutoFilter 2, "田中" .Copy Sheets("