エクセルの改ページについて

質問

１０００行くらいある名簿を一行ずつ改ページしたいのですが、簡単なやり方は無いでしょうか？
一行づつ指定して挿入すれば出来るのはわかるのですが、ちょっと行数が多い為範囲指定？みたいな事をしてまとめてやれないものかと思っています。

ご存じの方教えて下さい。

回答No.1

borg · ベストアンサー

単純な方法で、余白の下限位置を一行分の位置まで上げてしまえばできます。（印刷プレビューを使えば便利です）

お礼

ありがとうございます。
簡単にできました！

回答No.3

suz83238

データがA列～E列まで入っているとして下記を実行（プレビュー表示）

Sub xxx()
For i = 1 To Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A" & i & ":$E" & i
ActiveSheet.PrintOut Preview:=True
Next i
ActiveSheet.PageSetup.PrintArea = ""
End Sub

上のActiveSheet.PrintOut Preview:=Trueを
ActiveSheet.PrintOut
にすると印刷になります。

お礼

ありがとうございます

回答No.2

mochitora

Excelのファイルはそのままに、
Wordに差込みすれば良いと思います。

1000行もの名簿の体裁を変えると、
あとあと面倒なこともあるかと思いますので。

お礼

有難うございます。