VBAによるデータ抽出コードのエラーについて

Question

約3万行あるエクセルデータから、ある数ごとに別シートへ転記したく、下記のコードを記載しました。

Sub ?f?[?^???o()

Dim count As Long
Dim i As Long
Dim number As Long

count = Worksheets("管理").Cells(7, 5)
※countは今回のデータ数をある数（下記のnumberと同じ）で割った数
つまり今回抽出したい数となっています。

number = Worksheets("管理").Cells(6, 5)

For i = 0 To count

Worksheets("元データ").Range(Cells(73 + i * number, 1), Cells(73 + i * number, 5)) = Worksheets("抽出").Range(Cells(i, 1), Cells(i, 5))

Next i

End Sub

エラーメッセージは「1004」が出ます。
初歩的な誤りかもしれませんが
宜しくお願い致します。

Comments

[radames1000]

どこでエラーが出ているのか、エラーメッセージは何なのかをお知らせください。
コードを記載するときは入力欄上にある<code>を使ってください。

Answer 1

どのシートのセルか指定しなければなりません。
指定しなければアクティブシートとみなされます。

Worksheets("元データ").Range(Worksheets("元データ").Cells(73 + i * number, 1), Worksheets("元データ").Cells(73 + i * number, 5)) = Worksheets("抽出").Range(Worksheets("抽出").Cells(i, 1), Worksheets("抽出").Cells(i, 5))

iが0からになってますが、それだと下記部分でエラーになります。
正しい値を指定してください。

Range(Cells(i, 1), Cells(i, 5))

Comments

[somechan1]

早速の回答、誠にありがとうございます。

頂いた指示でやってみたのですが、同様に1004のエラーコードが出てしまいます。
お手数おかけしますが、宜しくお願い致します。

[somechan1]

ありがとうございます。
アドバイスのおかげで作動できました。