19/12/10 21:36:21.94 ntdCbZOy0.net
シート１のJ１～J220のセルをシート２に行で張り付けて
それをどんどん繰り返して１～48400の列を220*220の表にしたいんだけど、forに対するnextが無いと怒られます
3つのforに対してnextが足りてないのはわかるのですが、適当な場所においてもエラーが出ます
どうしたら解決するでしょうか？
Sub TEST4()
Dim S1 As Worksheet, S2 As Worksheet
Dim i As Integer, y As Integer, z As Integer
For i = 1 To 220
For y = 1 To 48181 Step +220
For z = 220 To 48400 Step +220
Set S1 = Worksheets("Sheet1")
Set S2 = Worksheets("Sheet2")
S2.Range("A" & i & ":" & "HL" & i).Value = S1.Range("J" & y & ":" & "J" & z).Value
Next
End Sub