セルのコピーで「オブジェクトが必要です。」

質問

次のような処理を考えています。
　　　A　　　　B　　　　　（シート１）
2001/5/1　10000
2001/5/2　3000
　　：　　　：
このデータはACCESSからインポートしたものですが、これを下記のような
シートに展開しようとしています。
　　　　1月　　2月　　・・・　　　（シート２）
1日　10000　???
2日　3000　　???
：　　：　　：
年が変わるとシートを追加します。
次のようなロジックを考えました。
Dim Rng As Range　　（他略）
I = 2
Wrk_Year = 9999
Worksheets("シート１").Activate
Do While (ActiveSheet.Range("A" & I) <> "")
　Set Rng = Range("A" & I)
　If Wrk_Year = Year(Rng.Value) Then
　　Else
　　　Wrk_Year = Year(Rng.Value)
　　　For Each Worksheet In Worksheets '同じシート名があるか
　　　　If Worksheet.Name = Wrk_Year & "年" Then
　　　　　Sh_Flg = 0
　　　　　Exit For
　　　　Else
　　　　　Sh_Flg = 1
　　　　End If
　　　Next
　　　If Sh_Flg = 1 Then
　　　　Worksheets("シート２").Copy after:=Worksheets(Worksheets.Count) '最後尾にシートコピー
　　　　ActiveSheet.Name = Wrk_Year & "年"
　　　　Worksheets("シート１").Activate
　　　　Sh_Flg = 0
　　　End If
　　End If
　　Cell_Month = Month(Rng.Value) + 1
　　Cell_Day = Day(Rng.Value) + 1
(1)　Rng.Value.Copy Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month)
　　I = I + 1
Loop
ここで、(1)でいつも「オブジェクトが必要です。」とのエラーになってしまいます。
たぶん、非常に基礎的なことだと思うのですが、なぜでしょうか？

回答No.2

zap35 · ベストアンサー

＃０１です

COPYメソッドはRangeオブジェクトに対しては有効ですが、Valueに対しては行えません。Copyの対象が不適切なので「オブジェクトが必要です。」というエラーになったと考えられます。

お礼

ご回答ありがとうございます。

勉強になりました。たいへんよくわかりました。

回答No.1

zap35

時間がなくゆっくり読んでいられないのですが（１）は値を代入するところですね。ならば

　Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month) = Rng.Value

で良いのではないでしょうか。

Copyメソッドを使いたいのであれば　Rng.Copy　をして、（Value.Copyではない）
Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month)　をSelectしてから、Activesheet.Paste　で貼り付けます

お礼

確かにできました。ありがとうございます。

しかし、いったい何が悪かったのでしょうか？
（わたしもまだ基本的なところが理解できていないのかも知れません。）