Excel VBA スタンダード模擬問題　 ①　第28問　8章-1

次のコードはテーブル特定し全体をコピーするマクロである、空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　With Range(“【　①　】【　②　】”).Range

　　　.Copy Sheets(“Sheet2”).Range(“A1”)

　End With

End Sub

正解

【　①　】”テーブル1”等、テーブル固有の名前

【　②　】[#all]

解説

Range(“【　①　】【　②　】”)となっているのでテーブルを、Rangeとテーブルの名前で特定していることが分かります。

・テーブルを、Rangeとテーブルの名前で特定する時は以下のように表します。
構文：Range(”テーブル固有の名前[#All]”)

Rangeと(”テーブル固有の名前[#All]”)、間にはカンマもスペースも入りません。
テーブル固有の名前はテーブルを選択した時に、左上のボックスに表示されている名前です。

[コード解説]

Sub Exam1()

　With Range("テーブル1[#All]").Range

' "テーブル1" という名前のテーブル全体（[#All]）を参照しています。これにより、テーブル全体を対象に操作を行うことができます。

　　.Copy Sheets("Sheet2").Range("A1")

' テーブル全体をコピーし、Sheet2のセルA1に貼り付けます。

　End With

End Sub