Excel VBA スタンダード 模擬問題 ① 6章-3

次のコードは、表でセルの検索で見つかったセルからC列までをセルE2へコピーするマクロである。空欄に入る適切な用語を解答しなさい。

Sub Exam1()
　Dim A As Range
　Set A = Range(“A:A”). Find (What:=”東京”)
　If A Is Nothing Then
　　MsgBox “見つかりませんでした”
　Else
　  Range(A, A.End(【　①　】)).Copy Range(“E2”)
　End If
End Sub

正解

【　①　】xltoright

解説

コピー元 Aは見つかったセルの位置、A. End(xlToRight)は見つかったセルの場所からエンドモードで右側から突き当たるであろうセルの位置を、Range(左上セル,右下のセル)で表しています。

Copyメソッド構文
：コピー元のセル範囲 .Copy コピー先のセル