エクセルＶＢＡにてコピー

エクセルにて、ＶＢＡで、
あるフォーマットをコピーするようなものを作りたいのですが・・・。
例えば１～１０行目までをコピーしたいとします。
その内容を１行空けて、１２行目に貼り付ける。
次に、２３行目に貼り付ける・・・というふうにして
ＶＢＡにてまだ貼り付けられていない行に
貼り付けられるようにしたいのですが、できるでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： nishi6 回答日時： 2001/08/07 17:46

コピーしたい範囲を選択して下記マクロを実行します。

コピーする回数を聞いてくるので入力します。指定した回数、書式をコピーします。

'選択した範囲の書式をコピーする。標準モジュールに貼り付け。
Public Sub SyosikiCopy()
　　Dim rgAdr As String 'コピー元アドレス
　　Dim rgRows As Long 'コピー元行数
　　Dim CopyKaisuu As Integer 'コピー回数
　　Dim cot As Integer 'カウンタ

　　rgAdr = Selection.Cells(1, 1).Address
　　rgRows = Selection.Rows.Count

　　CopyKaisuu = InputBox("コピーする回数を入力して下さい")

　　'書式をコピーする
　　Application.CutCopyMode = False: Selection.Copy
　　For cot = 1 To CopyKaisuu
　　　　Range(rgAdr).Offset((rgRows + 1) * cot, 0).Select
　　　　Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
　　　　　　False, Transpose:=False
　　Next
　　Range(rgAdr).Select
End Sub

この回答へのお礼

ありがとうございました。
早速、ためしてみました。上手くいきました。
これを機にもっと勉強しようと思いました。

お礼日時：2001/08/10 14:33