Excel スタンダード 問題 3 – 7
A列の値を2倍にし、B列に代入させたい。ただし、A列の値に空白があった場合、繰り返し処理を終了させたい。このとき、【 1 】に入る適切な内容を答えなさい。
Sub Test1()
Dim i As Long
For i = 1 To 10
If Cells(i, 1) = "" Then
【 1 】For
End If
Cells(i, 2) = Cells(i, 1) * 2
Next i
End Sub
正解を見る
A列の値を2倍にし、B列に代入させたい。ただし、A列の値に空白があった場合、繰り返し処理を終了させたい。このとき、【 1 】に入る適切な内容を答えなさい。
Sub Test1()
Dim i As Long
For i = 1 To 10
If Cells(i, 1) = "" Then
【 1 】For
End If
Cells(i, 2) = Cells(i, 1) * 2
Next i
End Sub