[[20141028142749]] 『最終入力セル以降削除』(ロク) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『最終入力セル以降削除』(ロク)

 A1からC100までデータが入っています。(C50の時もC3000の時もあります)
 D1からF5000までデータが入ってます。
 毎回C列の最終行は変化するのですがC列の最終行+1以降は必要ないため
 毎回削除を行いたいのです。
 C列の最終行+1以降のデータを毎回削除するマクロは可能でしょうか?
 マクロの知識はあまりありませんがよろしくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 素人が作ったマクロですが…

 Sub 削除()

     Dim LastRow As Long

     Application.ScreenUpdating = False

     LastRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
     Rows(LastRow & ":5000").Delete

     Application.ScreenUpdating = True

 End Sub
(se_9) 2014/10/28(火) 15:04

実行してみましたがやり方がまずかったのか、消えないですが、、、
(ロク) 2014/10/29(水) 11:24

 閲覧者ですが
 (se_9)さんのマクロでできましたけど・・。
 どのようにされたのでしょう。
 C列最終行+1以降のD列:F列のデーター消えましたけど。
(奮闘中) 2014/10/29(水) 11:46

 すみません。できました。ありがとうございました。
(ロク) 2014/10/30(木) 14:49

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.