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

次のコードは、セル範囲A1:A10に入力されているデータから"-"を除去した結果をB列に代入するマクロである。空欄に入る適切な語句を答えなさい。

Sub Exam1()

　Dim i As Long

　　For i = 1 To 10

　　　Cells(i, 2) = 【　①　】(Cells(i, 1), "-", "")

　　Next i

End Sub

正解

【　①　】replace

解説

文字列の中に含まれる不要な文字を除去するには、 Replace 関数を使います。

構文:Replace(元の文字列, 検索文字, 置換文字)
空欄""を置換文字にし"-"を除去しています。

[コード解説]

Sub Exam1()

　Dim i As Long

' 変数iをループカウンタとして宣言します。

　For i = 1 To 10

' ①1から10までの行を順番に処理します。

　　Cells(i, 2) = Replace(Cells(i, 1), "-", "")

' Replace関数を使用して、セル(i, 1)の値から"-"を空文字列に置換しています。
' 置換した結果をセル(i, 2)に代入します。

　Next i

' 上限値まで①へ戻り処理を繰り返します。

End Sub