（４）条件文の付いた繰り返しの使い方

InputBoxで入力した地区を条件にして繰り返しの中で使う。

Sub keisan4()
    Dim i As Long
    Dim tiku As String
    tiku = InputBox("地区名")
    For i = 2 To 15
        If Cells(i, 1) = tiku Then
           MsgBox tiku & "売上金額" & Cells(i, 2)
           Exit Sub
        End If
    Next
End Sub