[[20120516131917]]　『行挿入&コピー』（ぴょん）　ページの最後に飛ぶ

『行挿入&コピー』（ぴょん）

お世話になります。

アクティブシートの先頭行（「1」）で1行挿入し、データ最終行を先頭行（「1」）にコピーしたいのです。良いマクロを教えて下さい。

WindowsXP
Excel2003

 Sub 最終行を先頭行へコピー()

     Dim lngRow As Long

     With ActiveSheet
         lngRow = .Range("A1").End(xlDown).Row
         .Rows(lngRow).Copy
         .Rows(1).Insert
         Application.CutCopyMode = False
     End With

 End Sub

 でどうでしょうか？
 (se_9)

se_9様

早速のご回答ありがとうございました。
大変助かりました。
今後共よろしくお願い致します。
（ぴょん）

コメント返信：

[ 一覧(最新更新順) ]

[[20120516131917]] 『行挿入&コピー』（ぴょん） ページの最後に飛ぶ

[[20120516131917]]　『行挿入&コピー』（ぴょん）　ページの最後に飛ぶ