(VBA)実行時エラー '1004' アプリケーション定義またはオブジェクト定義のエラーの解決策がわかりません。

実行時エラー '1004' アプリケーション定義またはオブジェクト定義のエラーの解決策がわかりません。

VBA初心者です。よろしくお願いいたします。

やりたいこと

Excelで
A1,A2,A3・・・・・と縦に1,2,3,・・・・30000行並んでいるものを複数行コピーしてA30001以下に貼り付けるという行為を繰り返したい

1
2
3
・
・
・
29999
30000 ←1-30000までの30000行をコピーして下に貼るを繰り返したい
1
2
3
・
・
・
29999
30000

-問題点　以下のVBAコードを実行すると

VBA
1Sub マクロ_コピペの繰り返し()
2
3'前処理
4
5'変数定義
6Dim i, j, n As Integer
7
8'行数定義
9n = 27 'コピーの繰り返し回数
10j = 30000 'コピー元の行数
11
12'本番処理
13
14For i = 0 To n
15
16 Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1, 1), Worksheets("Sheet1").Cells(j, 1)).Copy Destination:=Range(Cells(j + 1 + j * n, 1), Cells(2 * j + j * n, 2))
17 
18 j = j + 1
19
20Next i
21
22
23End Sub

Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1, 1), Worksheets("Sheet1").Cells(j, 1)).Copy Destination:=Range(Cells(j + 1 + j * n, 1), Cells(2 * j + j * n, 2))の箇所で表題のエラーが発生します。

行動規範の内容に同意します

回答1件

ベストアンサー

文章で書いてあることを実現したいなら、下記のコードになります。

vba
1Sub マクロ_コピペの繰り返し()
2
3'変数定義
4    Dim i As Long, j As Long
5
6    '行数定義
7    n = 27    'コピーの繰り返し回数
8    j = 30000    'コピー元の行数
9
10    '本番処理
11
12    With Worksheets("Sheet1")
13        For i = 1 To n
14            Range(.Cells(1, 1), .Cells(j, 1)).Copy _
15                    Destination:=.Cells(j * i + 1, 1)
16
17        Next i
18    End With
19
20End Sub
21