次のコードは、 セル範囲A2:A10に入力されている文字列データから"-"を除去した結果を2列目に入力するマクロである。
空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim i As Long
For i = 2 To 10
Cells(i, 2) = Replace(Cells(i, 1), 【 ① 】, 【 ② 】)
Next i
End Sub
正解
【 ① 】"-" 【 ② 】""
【9章 エラー対策】
解説
【データクレンジング・Replace 関数】
●文字列の中に含まれる不要な文字を除去するには、Replace 関数を使います。
・構文:Replace(元の文字列, 検索文字, 置換文字)
元の文字列:対象となる文字列です。
検索文字:除去したい文字や置換したい文字のことです。
置換文字:検索文字を置換する文字。不要な文字を除去する場合、""(空の文字列)を指定します。
本問題では検索文字として "-"(ハイフン)を指定し、置換文字として ""(空の文字列)を指定しています。を指定しています。
【コード解説】
Sub Exam1()
Dim i As Long
For i = 2 To 10
’⓵For…Nextステートメント 変数へ開始値から終了値の間で繰り返し処理をする。
Cells(i, 2) = Replace (Cells(i, 1), "-", "")
’指定の検索文字を、置換文字「””」空欄に置き換え左辺に代入する。
Next i
’⓵に戻り終了値まで変数「i」の繰り返し処理をする。
End Sub
スポンサーリンク
スポンサーリンク