- ベストアンサー
VBAで対象セルが空白の間動作を繰り返す方法は？
- 対象セル範囲が空白になった時点で動作を止める方法を教えてください。
- VBAを使用してセルが右端まで移動し、対象セルが空白になったときに動作を停止したいです。
- VBAで空白の間動作を繰り返す際に、対象セル範囲が空白になったときに停止する方法を知りたいです。
- yasushi0715
- お礼率60% (3/5)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
あ、しまった。 frag初期化するの忘れてました。 ■修正版 ------- Sub sample() Dim u As Integer, o As Integer, c As Range, frag As Boolean Application.Calculate For u = 2 To 3 For o = 7 To 2000 frag = False If Cells(u, o) = "" Then Range("G2").Select Range("G2").End(xlToRight).Select If Selection.Value <> "" Then ActiveCell.Resize(6, 5).Select For Each c In Selection If c.Value <> "" Then frag = True Exit For End If Next If Not frag Then Exit Sub End If Else Exit Sub End If Selection.Cut Range("B2").Select Range("B2").End(xlDown).Select ActiveCell.Offset(1).Select ActiveSheet.Paste End If Next o Next u End Sub
その他の回答 (1)
- shirokuma2014
- ベストアンサー率25% (41/162)
こんにちは！ G2を基準にして右End移動し、指定した範囲をコピーして、B2を基準にして下End移動した一番したのセルにペーストするのですか？？ なぜこういう業務が必要なのかよく分かりませんが、 エクセルの基本機能である「コピー」→「行列入れ替えて貼り付ける」で実現可能な気も…。 表がどういう構造をしているのかよく分からないのですけど、今のまま実行すると ActiveCell.Resize(6, 5).Select の行で再右端に行ってエラーになりませんか？ 公開されているコードに付加する形でコードを書きました。 (されたいことをほとんど推測で書いてますので、意図した通りに動かないかも) ForNextとCellsを習得されているのなら、次は Cells(u,o).value = Cells(o,u+1).value のような書き方を覚えられるのをオススメします。 おそらく2,3行になります。 ----- Sub sample() Dim u As Integer, o As Integer, c As Range, frag As Boolean Application.Calculate For u = 2 To 3 For o = 7 To 2000 If Cells(u, o) = "" Then Range("G2").Select Range("G2").End(xlToRight).Select If Selection.Value <> "" Then ActiveCell.Resize(6, 5).Select For Each c In Selection If c.Value <> "" Then frag = True Exit For End If Next If Not frag Then Exit Sub End If Else Exit Sub End If Selection.Cut Range("B2").Select Range("B2").End(xlDown).Select ActiveCell.Offset(1).Select ActiveSheet.Paste End If Next o Next u End Sub
お礼
ありがとうございます！ 私がVBA勉強し始めたばかりで、かなり変な形になってると思います。 先に進めました。