6

コードに問題があり、エラーが表示されますが、その理由がわかりません。エラーは次のとおりです。
「コンパイル エラー: For なしで次へ」
なぜそうなのかわかりません。私はコーディングが初めてなので、ヘルプやコメントは大歓迎です。
これはコードで、For のないものとして示されている Next にはコメントが付けられています。 

Sub CGT_Cost()
startrow = Worksheets("GUTS").Cells(10, 1) 'Here I put 1
endrow = Worksheets("GUTS").Cells(11, 1)   'Here I put 1000

For x = endrow To startrow Step -1

If Cells(x, "Q").Value = "Sale" Then

    If Cells(x, "D").Value = "1" Then

    For i = 1 To 1000

        If Cells(x - i, "R").Value <> "1" Then

    Next i
        Else
        Range("G" & x).FormulaR1C1 = "=R[-" & i & "]C/R[-" & i & "]C[-1]*RC[-1]"

        End If
    End If
    End If
Next x  

End Sub

よろしくお願いします、
Artur。

4

2 に答える 2