エクセルのマクロの記憶・実行について

質問

マクロの記憶と実行についてですが質問があります。

下記のように、1～3までの行をマクロの実行でコピーといういうか表示していきたいのです。
３行をコピーして、行の挿入をすれば済む話なのですが、これを使う人が、パソコンを触ったことがないので、
マクロの実行というボタン１つで、何回も下に同じ間隔で表示させたいのです。

お助け下さい。

●月●日
1　あああ　あああ　あああ　あああ
2　いいい　いいい　いいい　いいい
3　ううう　ううう　ううう　ううう
4
5　これより下に、上記と同じ表をコピーしたい。
　　　　　　　　　↓

１行あけて同じ表を、マクロの実行でその下に表示させたいのです。
表の内容は、毎日変わります。その日の入力が終わったら、次の日、また、同じ事を繰り返していきます。

回答No.4

papayuka

とりあえず3行以上のデータがA列にあるとして、、、
こんな感じ？

Sub Test()
Dim r As Range
　　Set r = Range("A65536").End(xlUp)
　　If r.Row < 3 Then Exit Sub
　　Set r = r.Offset(-2, 0).Resize(3, 1)
　　r.EntireRow.Copy r.Offset(4, 0)
End Sub

回答No.3

Wendy02

いくつか分からない部分がありますね。

＞●月●日
この日付が分かりません。これは、１行目にあるのではないでしょうか？

それに、
＞３行をコピーして、行の挿入をすれば済む話なのですが、

挿入というのは、６行目(または５行目）にも文字列があるということですか？

＞その日の入力が終わったら、次の日、また、同じ事を繰り返していきます

次は、どこにコピーするのですか？
挿入で、真下の６行目（または５行目）に入れるのですか？それとも、10行目（または９行目）に貼り付けるのですか？

お話がよく見えてきません。

回答No.2

a987654

マクロなど使わずに
１．コピーしたいエリアを左ボタンを押したまま領域選択の反転をさせます。
２．選択領域の右下角にある、小さな黒い角部分を左ボタンを押したまま
　　こぴーしたい方向にマウスを引く。
この操作でいくらでもコピーできます。

補足

わかります。
自分ならそのように行うのですが、そうではなくて、ボタン１つっていうのがあればなぁと思ったのでした。

すいません。

回答No.1

hirika

マクロを使わなければならない意味はありますか。
　なければ、A1からA4までを選択して、選択範囲の右下のところを下にドラグすれば良いだけだと思いますが。

補足

マクロの実行というボタンひとつでコピーできるのがしたいのです。
答えのやり方も簡単なのですが、これを実際に行う人がPC初心者なので、説明するときに、このボタンを１つ押せばOKだよと言えればと思ったのですが。
できないのでしょうか・・・。

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