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

    MsgBox "空白が存在します"

End Sub

正解を見る
前へ
次へ