ここから本文です

マクロ-行削除について質問です。

kei********さん

2009/4/509:35:11

マクロ-行削除について質問です。

とあるデータで行がn個あるとします。nは簡単に出せます。
一番下から20行のみ残したい(他は削除)場合どういうマクロを組めばいいでしょうか?
補足:n-20がマイナス時は空欄でもいいです。

閲覧数:
526
回答数:
1

違反報告

ベストアンサーに選ばれた回答

mas********さん

2009/4/509:54:35

最終行=ActiveSheet.UsedRange.End(xlDown).Row
if 最終行<20 then 削除開始行=1
else
削除開始行=最終行-20
endif
Rows(削除開始行&":"&最終行).Delete Shift:=xlUp

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる