VBA 特定の範囲をコピーして下の行に貼り付けたい

Question

例えばですがA6AZ30の範囲をコピーしてA7AZ31に貼り付けみたいなことをしたいです。

下記、コードで言えば、なぜか実行途中で落ちます(白い画面で実行途中で落ちます)
→行が多すぎて落ちるのか(?)と思っているのですが、範囲はA~AZの範囲を３０行程度なので、その程度で固まるか？と思っています。白い画面になるので DoEvents追加して待てば大丈夫かと思っていましたが、このやり方(COPY)ではできず。。

コピーする時はDestinationを使えば一番早いみたいなサイトもみたので、なぜこのコードが途中で落ちるのか分かりません。
下記処理はループして数回実行されます。

やり方は違うが、結果的にはやってることは一緒みたいなコードを教えていただけませんか。
また、「こっちの方がいいんじゃない？」みたいな方法があれば教えて頂きたいです！

Sub sample()
    Range("B" & Range("B11").Offset(j + 1, 0).Row & ":" & "AZ" & Range("B11").Offset(j + 1, 0).End(xlDown).Row).Copy _
    Destination:=Range("B11").Offset(j + 2, 0)
End Sub

Comments

[退会済みユーザー]

VBA の話で VB.NET は関係ないようですが、であれば VB.NET のタグははずしてください。

Answer 1

こうですか？

'A6~AZ30の範囲をコピーしてA7~AZ31に貼り付けみたいなこと
Sub Sample()
    Dim i
    For i = 0 To 5  'ループして数回実行
        Range("A6:AZ30").Offset(i).Copy Destination:=Range("A7").Offset(i)
    Next
End Sub

Answer 2

質問文では変数jの値代入がはしょられているのでいくつの数値を入れているのかは分かりませんが、
セルB11からOffset(j + 1, 0)した場所がデータのない場所だった場合、次の.End(xlDown).Row)で最下行まで範囲を広げることになります。最下段は1048576です。
それだけの範囲をコピーして貼り付けると相当な時間がかかるのは自明です。

オフセットする範囲が元の表を超過しないよう十分気をつけましょう。

Comments

[nepia2000]

.selectで最大行までいってないのは確認しました。
数回実行する程度なんですが、途中で白い画面になって「応答なし」になるんですよね
Rangeで範囲指定して数十行なんですが、、、データの問題でしょうか、、、

[hope_mucci]

私のほうで全く同じコードを試してみましたが、最下行まで行くパターン以外は応答なしになることはありませんでした。
.End(xlDown).Rowせずにrange決め打ちでコピーした際も応答なしになるかどうか確認してみてください。
また、関数の頭からステップ実行して、どこで応答なしになるかチェックすると原因がつかめるかもしれません。ループの途中で応答なしになっているかもしれません。