エクセル 最終ページの最終の行に同じ表を挿入する方法

質問

(1)エクセルのファイルに複数のシートがある。
(2)複数のシートは作業するたびにページ数が増減する。
(3)ページ数が増減しても、最終ページの最終行から上に１０行分の表（グラフではない）を挿入したい。
※表はいつも同じ。

こんなことが可能でしょうか？

宜しくお願いします。

回答No.1

DOUGLAS_ · ベストアンサー

＞最終ページの
Sheets(Worksheets.Count).Select

＞最終行から
＞上に１０行分の表（グラフではない）を挿入したい。
Range("A" & Rows.Count).End(xlUp).Offset(-9).Select

みたいなことかなと存じますが、「最終行」につきましては、ワークシートの構成によって大きく左右されますので、下記をご覧ください。

●Excelが認知している最終行を取得する。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html

●データがある最終行を知る方法
http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml

●ワークシートの最終行、最終列を取得する
http://www.niji.or.jp/home/toru/notes/8.html