横にコピーするマクロを教えてください。

エクセルでのコピー・貼付けを、簡単なマクロで処理する方法を教えてください。

現在、セルB3からD8までを入力表とし、入力した数値をコピーして
I3からK8に貼付け、また入力表に新たな数値を入力して横のl3からN8に
コピ－貼付けと横にコピー貼付けを行っていき、F3からH8には自動的に
集計が上がるようにしています。

このコピー貼付けをボタンで行うマクロをどなかた教えてください。
よろしくお願いいたします。　　　

No.1 回答者： hige_082 回答日時： 2010/03/02 14:53

sub test()

if range("i3").value = "" then
range("i3:k8").value = range("b3:d8").value
else
range("l3:n8").value = range("b3:d8").value
end if
end sub

この回答への補足

早速のご教示ありがとうございます。
説明を少し追加させて下さい。
コピー貼付けは、平均15回（最終がAY3からBA8位）くらい
横に行います。（時々は16回や17回の時もあります）
また、コピーは書式（罫線やセルの色）も一緒に行いたいのです。
どうかよろしくお願いいたします。

補足日時：2010/03/02 15:55

No.2 回答者： nattocurry 回答日時： 2010/03/02 18:38

Sub test()

Dim c As Long
c = Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Column
If c < 15 Then c = 15
Range("I3:K8").Copy Destination:=Cells(3, c)
End Sub

No.3 ベストアンサー 回答者： hige_082 回答日時： 2010/03/02 20:25

＞説明を少し追加させて下さい。

マナー違反ですよ、気をつけてね

Sub test()
Range("b3:d8").Copy Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub

自分で勉強した方が早い気もしますが

参考まで

この回答へのお礼

お礼が遅くなりました。
思ってるように出来ました。
本当にありがとうございました。
マクロの勉強、頑張ります。

お礼日時：2010/03/03 09:15