OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセルVBAにてコピー

  • 困ってます
  • 質問No.115189
  • 閲覧数165
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 64% (89/139)

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

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

コピーしたい範囲を選択して下記マクロを実行します。
コピーする回数を聞いてくるので入力します。指定した回数、書式をコピーします。

'選択した範囲の書式をコピーする。標準モジュールに貼り付け。
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
お礼コメント
yuuchan

お礼率 64% (89/139)

ありがとうございました。
早速、ためしてみました。上手くいきました。
これを機にもっと勉強しようと思いました。
投稿日時 - 2001-08-10 14:33:34
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ