エクセルにて、VBAで、
あるフォーマットをコピーするようなものを作りたいのですが・・・。
例えば1~10行目までをコピーしたいとします。
その内容を1行空けて、12行目に貼り付ける。
次に、23行目に貼り付ける・・・というふうにして
VBAにてまだ貼り付けられていない行に
貼り付けられるようにしたいのですが、できるでしょうか?
よろしくお願いします。

A 回答 (1件)

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


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

'選択した範囲の書式をコピーする。標準モジュールに貼り付け。
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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

  • エクセルの図形機能で歌川国芳の浮世絵を描く動画

    教えて!goo動画マスターのスズです。自慢じゃないが私は絵がとても下手だ(本当に自慢じゃない)。6歳の子どもを相手に、言葉を口にせずに描いた絵だけでやりとりする「絵しりとり」をやっていて、「自転車」を描い...

  • 好きだけどケンカばかり……そんな彼との結婚は?

    やたらとケンカが多いカップルというのはいる。それでも腐れ縁なのか長く交際し、いざ結婚しようと決めたときに、ふと思い悩む。こんなにケンカが多いのに、結婚して大丈夫? と。今回は「教えて!goo」に寄せられ...

  • ポンコツな日々:第125話「食べてもOK」

    日々のちょっとしたヘンな出来事を、1話完結形式の4コマで綴っていきます。時にするどく、時にやんわり、ありそうで無さそうな日常の1コマを切り取ってお届けします。

  • “罵声大会”に怒り心頭?名指しで苦情も……駅員泣かせの鉄道ファン

    時として人は趣味に没頭してしまうと、周囲に迷惑をかけてしまいがち。それが公共の場ならばなおさらである。「教えて!goo」に「何で鉄道ファンはマナーの悪い人が多いのでしょうか?」との質問を見つけた。鉄道愛...

  • たまランチ:第102話「ネコ好き」

    外ランチを愛してやまない元気な女子社員・たまちゃん(26)。オシャレなお店より「安くておいしい」お店が大好き! そんな女子力低めなたまちゃんの、色気より食い気な日々をつづります。

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ