[sheet1]内での作業ですが…
雛形のページを1枚作成して、複数枚のページが必要になったので「マクロの記録」で1ページ分の行をコピーして、1ページの下に貼り付けてみました…で、それは実行できるのですが、3ページ目では実行できません。
マクロの知識はありませんが、ページを貼り付ける行が変更できないからだなぁ~と。
=====================
Sub ページを追加()
'
' Macro1 Macro
' マクロ記録日 : 2013/12/12 ユーザー名 : エクセル-NOTE
'
'
Rows("9:51").Select
Selection.Copy
Rows("52:52").Select
ActiveSheet.Paste
End Sub
=====================
何処でも好きな行を選択してページを増やすことはできないのでしょうか?
ただ、単純にページを下へ下へと、必要な分だけ追加したいのです…が。
上の「数行」は見出しに利用しています。
No.2ベストアンサー
- 回答日時:
マクロを実行毎にコピペで1ページ分を増加させたいという事であれば下記方法で可能だと思います。
ご参考まで。
Sub ページを追加()
Dim myRange As Range
Dim Maxrow, i, j As Long
'データがあるセル範囲の最終行番号を取得
Set myRange = ActiveSheet.UsedRange
Maxrow = myRange.Row + myRange.Rows.Count - 1
'現在ページ数を計算
i = Application.RoundUp((Maxrow - 8) / 43, 0)
'ペーストを開始する行番号を計算
j = i * 43 + 9
Rows("9:51").Select
Selection.Copy
Rows(j).Select
ActiveSheet.Paste
End Sub
ありがとうございます、返事が送れました、申し訳ないです。m(_ _)m
教えていただいたmacroで対応できました。
知識がないのでmacro自体は意味がわかりませんが…
できれば、できたで…
「そっかぁ~こういう事も、ああいうこともできるかなぁ~」などと、いろいろ考えが広がりましたので、今回のことを契機にmacroを少し勉強しようと思いました。
また、質問をするかも解りません…その時は、よろしくです。
今回はありがとう御座いました。
No.1
- 回答日時:
Rows("9:51").Select Selection.Copy
Rows("52:52").Select ActiveSheet.Paste
Rows("94:94").Select ActiveSheet.Paste
でどうなります?
この回答への補足
返事が遅くなりました、申し訳ないです。<(_ _)>
早速、教えていただいたmacroをコピーして確認してみましたが…
エラー??(よく解りません)になりました。
ページを増やすというより、結局のところは「行をコピーして貼り付け」なので、もう少し試してみます。
ありがとう御座いました。
今回は、素早い対応、ありがとう御座いました。
返事が遅れまして、すみません。
macroのほうも、私の知識不足のため、十分な検証もできなかったことだと思っています、申し訳ないです。
ありがとう御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 2 2022/03/28 17:38
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
-
4
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
5
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
6
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
9
Excel シートのコピーの際、ページ設定が保持されない
Excel(エクセル)
-
10
画像を削除したい(VBA)
Word(ワード)
-
11
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
12
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
13
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
EXCELマクロでのThisisWor...
-
Excel マクロ VBA プロシー...
-
【マクロ】1つのマクロの中に...
-
10人を2人づつ5組にランダ...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
アクセスで作成したマクロの印...
-
エクセルで別のセルにあるふり...
-
エクセル マクロで奇数行の非表示
-
エクセル マクロ 指定日の指定...
-
Excel VBAからAccessマクロを実...
-
特定文字のある行の前に空白行...
-
2つのマクロでチェックボックス...
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報