- 83 名前：デフォルトの名無しさん mailto:sage [2019/12/10(火) 21:36:21.94 ID: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
|
 |
