[[20140820170604]]　『アクティブな行を削除して1行追加』（hamu）　ページの最後に飛ぶ

『アクティブな行を削除して1行追加』（hamu）

罫線を引いた表があるのですが、きっちり100行あります。
不要なデータを含む行を削除したいのですが、これだと
だんだん表が小さくなってしまいます。
なので行が減るたびに1行増やしたいと思っています。

イメージとしては、
１．削除した行をアクティブにする
２．マクロを実行するとそのアクティブにした行を削除する
３．100行目を一行挿入する。

といったマクロを作成したいのですがどのように記述したら
いいのでしょうか。
よろしくおねがいたします。

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

削除後に、100行分の罫線を引き直す、という方法はいかが？
（???） 2014/08/20(水) 18:17

 100行分罫線をひき書式設定もしてあるが、数値や数式の入っていない表を作ったシートを用意する
 表の右下の下のセルになんか文字を入れておく
 ふつうに行削除を行う
 作っておいたシートをCtrl+Shift+Endで選択し、コピー
 削除後シートに書式貼付けする

 以上をマクロ記録する

（そう） 2014/08/21(木) 10:46

 こんな時はまずマクロの記録をしてみるとよいと思いますが、99 行目にデータがなければ
 こんなのでも。

 Sub Sample()
    ActiveCell.EntireRow.Delete
    Rows(99).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End Sub

（Mook） 2014/08/21(木) 11:18

ありがとうございました　皆様のご意見を各試してみます！＾＾

（hamu） 2014/08/21(木) 12:35

コメント返信：