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

次のコードは、A列全体から”東京”を検索し、見つかったセルのひとつ右のセルに”関東”を代入マクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

　　Set A = Range【　①　】.Find(What:="東京")

　A. Offset (0, 1) = "関東"

End Sub

正解

【　①　】("a:a")

解説
列全体を検索する際は他に、Columns(1)、Columns("A")などの表し方があります。

なおRange(”A”)はエラーになります。

[コード解説]

Sub Exam1()

　Dim A As Range

' 検索結果を格納するためのRange型変数Aを宣言します。

　Set A = Range("A:A").Find(What:="東京")

' Findメソッドを使用して、列A全体から"東京"という文字列を検索します。
' 見つかったセルを変数Aに設定します。

　　A.Offset(0, 1) = "関東"

' 見つかったセルの右隣（同じ行の1列右）のセルに"関東"を入力しています。

End Sub