[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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
6
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
Excel シートのコピーの際、ページ設定が保持されない
Excel(エクセル)
-
9
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
10
Excelのマクロについて
Visual Basic(VBA)
-
11
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
12
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
非表示の列をすべて削除するマクロ
-
マクロ実行時、ユーザーフォー...
-
エクセルに張り付けた写真のフ...
-
#defineの定数を文字列として読...
-
Excelマクロを引数付で起動
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ピボットテーブルでの毎回可変...
-
バッチファイルでEXCELを起動し...
-
accessで未入力の場合にメッセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報