vba 「Nextに対するForが見当たりません」のエラーが発生する原因

Dim zan56 As Long
Dim mm As Integer
Dim g3 As Integer
Dim gyo_sakusei As Integer

gyo_sakusei = 3
zan56 = 0
mm = ws_sakusei.Cells(3, 2).Value
Do Until ws_sakusei.Cells(gyo_sakusei, 11).Value = ""
If ws_sakusei.Cells(gyo_sakusei, 11).Value = 56 Then
If mm = ws_sakusei.Cells(gyo_sakusei, 2).Value Then
zan56 = zan56 + ws_sakusei.Cells(gyo, 9).Value
Else
For g3 = 3 To 14 Step 1
If ws_ksakusei.Cells(g3, 1).Value = mm Then
ws_ksakusei.Cells(g3, 9).Value = zan56
Exit For
⇒ Next g3
zan56 = 0
End If
End If
End If
gyo_sakusei = gyo_sakusei + 1
mm = ws_sakusei.Cells(gyo_sakusei, 2).Value
Loop

上記 ⇒箇所の Nextに対するFORが見当たらないとエラーがでるのですが
不適合箇所がよくわかりません。
ご教授よろしくお願いします。

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2022/10/21 15:50

it then がforの中にありますので、

exit forの後（nextの前）にend ifを移動？させてください。

この回答へのお礼

早急のご回答ありがとうございました。
解決しました。

お礼日時：2022/10/21 16:00