以下のFor Nextで「Nextに対するForがありません」とコンパ

質問

以下のFor Nextで「Nextに対するForがありません」とコンパイルエラーが出ます。どこが悪いのか教えてください。

Sub 品番検索()
'
' Macro1 Macro
'
Application.Goto Reference:="Macro1"
'
Dim hinban As String
Dim y, n
y = 16
hinban = InputBox("品番を入力してください。", "品番入力", "ABC-123")
For n = 2 To 200
A0 = Worksheets("履歴RW").Cells(2, n)
A1 = Worksheets("履歴RW").Cells(2, n + 1)
A2 = Worksheets("履歴RW").Cells(2, n + 2)
A3 = Worksheets("履歴RW").Cells(2, n + 3)
A4 = Worksheets("履歴RW").Cells(2, n + 4)
A5 = Worksheets("履歴RW").Cells(2, n + 5)
A6 = Worksheets("履歴RW").Cells(2, n + 6)
A7 = Worksheets("履歴RW").Cells(2, n + 7)
A8 = Worksheets("履歴RW").Cells(2, n + 8)
A9 = Worksheets("履歴RW").Cells(2, n + 9)
If hinban = A0 Then
Worksheets("発注FM").Cells(y, 2) = A0
Worksheets("発注FM").Cells(y, 3) = A1
Worksheets("発注FM").Cells(y, 4) = A2
Worksheets("発注FM").Cells(y, 5) = A3
Worksheets("発注FM").Cells(y, 6) = A4
Worksheets("発注FM").Cells(y, 7) = A5
Worksheets("発注FM").Cells(y, 8) = A6
Worksheets("発注FM").Cells(y, 9) = A7
Worksheets("発注FM").Cells(y, 10) = A8
Worksheets("発注FM").Cells(y, 11) = A9
y = y + 1
Else
Next
End Sub

回答No.1

edomin7777 · ベストアンサー

「Else」を「End If」に変える。

お礼

回答ありがとうございました。
For Nextに関するエラーアラートが出ていたのでそこばかり気にしていました。
大変参考になりました。

回答No.3

ToOrisugaru

まさしく、構造化を意識してないがための落とし穴ですね～。

お礼

回答ありがとうございまいした。
昔BASICを少し経験した者ですが今のプログラムはJAVAなども含めて行番号へのGOTO文がないのでなかなか理解できません。
ありがとうございました。

回答No.2

Hayashi_Trek

End If が無い。

お礼

回答ありがとうございました。
For Nextに関するエラーアラートが出ていたのでそこばかり気にしていました。
大変参考になりました。