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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelで・・・1ページあたりの行数を指定できますか?
Excel(エクセル)
-
Excelで12行ずつ印刷するには
Excel(エクセル)
-
エクセルの改ページを行ごとに自動挿入するには?
Excel(エクセル)
-
-
4
エクセルで複数行に一度に改ページを挿入する方法
Excel(エクセル)
-
5
Excelで全ての行単位で改ページ
Word(ワード)
-
6
エクセル印刷ページ行数指定
Excel(エクセル)
-
7
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
8
EXCEL 改ページ自動挿入方法を教えてください。
Excel(エクセル)
-
9
エクセルでページ毎の小計から最終ページで合計を出したい。
Access(アクセス)
-
10
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
11
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テプラの文字幅をつめたい
-
PS4のAPEXで、動画を録画した時...
-
iphoneについてです! 承認と購...
-
LINEのアイコンが未設定だと、...
-
Windows edgeにてアドレスバー...
-
torneで録画した番組を再生する...
-
Canon LBP-3600 の PaperBin の値
-
PS2の本体設定について
-
Windowsのメーラーが文字化けし...
-
SEM(走査型電子顕微鏡)の...
-
KINGSOFT Internet Security シ...
-
iPhoneの音楽が、自動車で勝手...
-
Photoshopで作成した画像サイズ...
-
internet explorer は動作を停止し
-
アラド戦記
-
メールアドレスの@の前後の呼...
-
「Wi-Fiアダプターへのアクセス...
-
UltraVNC ViewerからVNCサーバ...
-
ipアドレスの固定
-
1つのドメインを複数箇所のサー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラの文字幅をつめたい
-
PS4のAPEXで、動画を録画した時...
-
MacでChromeを使っていると指紋...
-
SEM(走査型電子顕微鏡)の...
-
Excelで50行毎に改ページを入...
-
Windows edgeにてアドレスバー...
-
eclipseの設定を別のPCへコピー...
-
iphoneについてです! 承認と購...
-
アラド戦記
-
teams設定教えて下さい。 ①ビデ...
-
iPhone14に先日変えたのですが...
-
chemdrawについて
-
論文提出で、A4サイズ1枚 文字...
-
アンドロイドのカメラのサイズ...
-
PC版FF11のゲームパッドの設定...
-
テキストをコピー不可能なPDFの...
-
【電気・絶縁抵抗計のコンパレ...
-
VBAの改ページ設定について
-
IP電話に設定後ナンバーディス...
-
レターボックス仕様のDVDを...
おすすめ情報