No.2ベストアンサー
- 回答日時:
Sub Macro1()
Dim i As Long
Dim j As Long
Dim k As Long
i = 50
j = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
For k = i + 1 To j Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub
No.1
- 回答日時:
Excel2003です。
Sub Macro1()
Dim i As Long
Dim j As Long
Dim k As Long
i = 50
j = 349
For k = i + 1 To 349 Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub
他にもっと良い方法があるはず。。
ご回答ありがとうございました。変数jが可変の場合、一番最終の行を探す必要があるのですが、そこをどうすれば良いでしょうか?(本来であれば、別の質問でした方が良いのかも市得れませんが、続きがあれば、ということでお礼に追加させていただきます)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Visual Basic(VBA) VBAの改ページ設定について 7 2022/06/20 00:57
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- その他(Microsoft Office) 複数の写真を1枚に印刷 5 2023/05/05 22:41
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
Excelで・・・1ページあたりの行数を指定できますか?
Excel(エクセル)
-
Excelで12行ずつ印刷するには
Excel(エクセル)
-
エクセルの改ページを行ごとに自動挿入するには?
Excel(エクセル)
-
-
4
エクセルで複数行に一度に改ページを挿入する方法
Excel(エクセル)
-
5
Excelで全ての行単位で改ページ
Word(ワード)
-
6
エクセル印刷ページ行数指定
Excel(エクセル)
-
7
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
8
EXCEL 改ページ自動挿入方法を教えてください。
Excel(エクセル)
-
9
エクセルでページ毎の小計から最終ページで合計を出したい。
Access(アクセス)
-
10
EXCELで1行の内容を1枚の紙に印刷したい(緊急)
Excel(エクセル)
-
11
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
-
12
VBAの改ページ設定について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows edgeにてアドレスバー...
-
テプラの文字幅をつめたい
-
PS4のAPEXで、動画を録画した時...
-
chemdrawについて
-
PC版FF11のゲームパッドの設定...
-
アラド戦記
-
iPhone SE第3世代、touchID(指...
-
teams設定教えて下さい。 ①ビデ...
-
論文提出で、A4サイズ1枚 文字...
-
Photoshopで作成した画像サイズ...
-
テキストをコピー不可能なPDFの...
-
iphone 海外で使用時の時刻設定
-
VBからPowerShellを使う
-
ps4 のゴーストオブツシマで血...
-
auのXperia z3を使ってます。個...
-
パソコンの画面が横長になった...
-
大学のレポートで1ページの文字...
-
MacでChromeを使っていると指紋...
-
SEM(走査型電子顕微鏡)の...
-
JWCADにて寸法指定で線が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラの文字幅をつめたい
-
PS4のAPEXで、動画を録画した時...
-
MacでChromeを使っていると指紋...
-
Excelで50行毎に改ページを入...
-
teams設定教えて下さい。 ①ビデ...
-
eclipseの設定を別のPCへコピー...
-
SEM(走査型電子顕微鏡)の...
-
【電気・絶縁抵抗計のコンパレ...
-
iphoneについてです! 承認と購...
-
chemdrawについて
-
VBAの改ページ設定について
-
パソコンのホームについて
-
googleファミリーリンクの対象...
-
論文提出で、A4サイズ1枚 文字...
-
Canon LBP-3600 の PaperBin の値
-
Photoshopで作成した画像サイズ...
-
アラド戦記
-
gmail の時間設定
-
レターボックス仕様のDVDを...
-
テキストをコピー不可能なPDFの...
おすすめ情報