Ｅｘｃｅｌ２００７でコピーのマクロの書き方を教えて下さい。

質問

Ｅｘｃｅｌ２００７でコピーのマクロの書き方を教えて下さい。

シートの左側に、毎年３種のデータ(例:イ,ロ,ハ)が入っています。
この毎年の(イ)を同一シートの右側に、５年間連続に並べるべく、コピーをしたい。
毎年　行数は同じです。

　　H22　　 H21　　 H20　　コピー先→　 H22 H21 H20　５年間連続で　
　イロハ　　イロハ　　イロハ　　　　　　　　 イ　 イ　 イ

以下のようなマクロを書いたところ、
　　実行時エラー　　1004
　　　　Range メソッドは失敗しました。　　とのエラーで動きません。

当方、ごく初心者で、ほとんど何も解っていない、老人です。
是非教えて下さい。　よろしくお願い致します。

エラーとなるマクロです。
Sub Macro1()
Dim Copymoto As Integer
Dim Copysaki As Integer
Dim i As Integer
Copymoto = 41　　'コピー元列　例　41 44 47 50 54　の５年間のデータを
Copysaki = 67 　　　'コピー先列　例 67 68 69 70 71　(イ)のデータを連続で並べたい

For i = 1 To 5
Range("cells(15,Copymoto):cells(303,Copymoto)").Select
Selection.Copy
Range("cells(15,Copysaki)").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Copymoto = Copymoto + 3
Copysaki = Copysaki + 1
Next i
End Sub

回答No.1

jcctaira · ベストアンサー

RangeとCellの使い方が間違っていますね。

以下のように修正すればエラーはなくなると思います。

Range("cells(15,Copymoto):cells(303,Copymoto)").Select
　　　　　　　　　　　↓
Range(Cells(15, Copymoto), Cells(303, Copymoto)).Select

Range("cells(15,Copysaki)").Select
　　　　　　　　　　　↓
Cells(15, Copysaki).Select

お礼

凄い！！　速い！！ 完璧！！　感激！！　です。

ありがとうございました。

楽しくマクロの勉強をしています。

まだまだ未熟ですが、勇気が出てきました、もっともっと勉強します。ありがとう