vba

質問

VBAはじめたばかりで、躓きました。
下記を実行すると、”Nextに対するForがありません。”とでます。
なぜこうなるのか教えてください。

　G2～列2000の間が空白になるまで、
　下記の処理を続けるようにしたいと思っています。

　Dim i As Integer

For i = 7 To 2000

Do
If Cells(2, i) = "" Then

Range("G2").End(xlToRight).Select
ActiveCell.CurrentRegion.Resize(6, 5).Select
Selection.Cut
Range("B2").End(xlDown).Select
ActiveCell.Offset(1).Select
ActiveSheet.Paste

Exit Do

End If

Next i

Loop

　よろしくお願いします。

回答No.3

hallo-2007

”Nextに対するForがありません。”とでます。
なぜこうなるのか教えてください。
に対する回答は出ていますが、

G2～列2000の間が空白になるまで、
　下記の処理を続けるようにしたいと思っています。
は大丈夫？
Ｆｏｒ　と　Ｄｏの二重のループも必要？

For i = 7 To 2000 Step 5
If Cells(2, i) = "" Then Exit For
Cells(2, i).Select
ActiveCell.CurrentRegion.Resize(6, 5).Select
Selection.Cut
Range("B2").End(xlDown).Select
ActiveCell.Offset(1).Select
ActiveSheet.Paste
Next i

Cells(2, i).Select
ActiveCell.CurrentRegion.Resize(6, 5).Select
Selection.Cut
も
Cells(2, i).CurrentRegion.Resize(6, 5).Cut
と１行にまとめたりも出来ます。

回答No.2

koiboshi

Next iとLoopの行順が逆かと思われます。

お礼

ありがとうございます

回答No.1

bartok88

Next iとLoopの行順が逆じゃないですか？

お礼

ありがとうございます。
m(__)m