エクセル2003で自動で番号を振りたい

質問

エクセル2003で同じ文章を何枚も印刷する場合、右上辺りに1～番号を振りたいのですが
可能でしょうか？

回答No.3

enunokokoro · ベストアンサー

右上辺りというのはヘッダーの右側でよいのでしょうか？

ヘッダーに印刷されてもよいのでしたら、マクロで印刷の部数を
指定するものを用意すれば可能です。

Sub 部数で連番をつけて印刷()
　Dim n As Variant, i As Integer
　n = InputBox("印刷部数を入力してください")
　If n = "" Then Exit Sub
　For i = 1 To n
　　ActiveSheet.PageSetup.RightHeader = i
　　ActiveSheet.PrintOut
　Next
End Sub

元となった回答
http://okwave.jp/qa/q2909328.html
マクロとしてのヘッダーやフッター関連
http://www.moug.net/tech/exvba/0070013.html

回答No.2

hachi1998

「同じ文章」というのがどれくらいのボリュームなのか分かりませんが、A41枚くらいなら同じシート上にコピーペーストで印刷したい枚数分作ります。（100枚なら100ページ分）時間はそんなにかからないと思いますよ。２回目は２ページ分をコピペ、3回目はその倍の4ページ分をコピーしていけばすぐなんで。
100枚分作ったなら、ヘッダー機能を利用してページ番号を振ってみてはどうでしょうか？

回答No.1

koko88okok

下記URLの過去ログをご参照下さい。

「エクセル印刷時　一枚の書類に印刷枚数分の連続番号を振るには？」
http://okwave.jp/qa/q957091.html