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

質問

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

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

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

回答No.3

hige_082 · ベストアンサー

＞説明を少し追加させて下さい。
マナー違反ですよ、気をつけてね

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

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

参考まで

お礼

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

回答No.2

nattocurry

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.1

hige_082

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回の時もあります）
また、コピーは書式（罫線やセルの色）も一緒に行いたいのです。
どうかよろしくお願いいたします。