No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- その他(Microsoft Office) エクセルVBA 3 2022/06/09 08:04
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) Excel VBA 3 2023/04/22 10:46
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
VBAのテキストボックスに文字列...
-
Excel 3列毎のセルを別の表に抽...
-
【エクセル】表の中の文字だけ...
-
EXCEL 1つ飛ばしのセル参照
-
コピー&貼り付けの仕方を教え...
-
Excelで、決まった行を繰り返し...
-
セルから一部だけを抜き出して...
-
マイナスの場合「xxxx-」...
-
Adobe Acrobat DCのスナップシ...
-
エクセルでコピーしたものをコ...
-
ショートカットキーで値のみ貼...
-
WORDのグレー括弧って?
-
この文の中の” &8212”の読み方...
-
Wiresharkのパケットの詳細のテ...
-
シートのコピー、セル全体のコ...
-
パワポに張り付けると画像が荒...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
PDFの一部を切り取って別のシー...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
Excel 3列毎のセルを別の表に抽...
-
Excel フィルターを掛けた状態...
-
WORDのグレー括弧って?
-
セルに値がある行のみを抽出す...
-
VBAのテキストボックスに文字列...
-
エクセルでコピーしたものをコ...
-
マイナスの場合「xxxx-」...
-
エクセルでマクロにてセル色と...
-
コピーされたセルの文字が途中...
-
EXCEL 1つ飛ばしのセル参照
-
数式による空白を無視して最終...
-
コピー&貼り付けの仕方を教え...
-
エクセルVBAでコピーすると行の...
-
Wordの「背景色を消す方法」教...
-
エクセル VBA・マクロ コピー ...
おすすめ情報