Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33055 / 76807

←次へ　｜　前へ→


	【48978】空白に見えるセルの削除

gogo - 07/5/19(土) 1:47 -


	引用なし

	パスワード

EXCELに以下のようなデータがあり、連番をふり、データの周りに罫線を引きたいと考えているのですが、番号　　　　　　登録年月日　　　　　　　　価格　　　　　　　　 12742357　　平成14年9月　　　 7880　 12800　　　平成14年9月　　　 6580 12742456　　平成16年10月　　　7880 1270309 　　平成16年10月　　　7480 12780006　　平成16年10月　　　7980 12781472　　平成16年10月　　　9950 1278615　　平成16年10月　　　4980 　　・　　　　・　　　　　　　・　　・　　　　・　　　　　　　・　　・　　　　・　　　　　　　・　　・　　　　・　　　　　　　・上記データは　例えば　=IF(C2499="","",IF(F2499>=25,"昭和","平成")) のように作成されたものを、コピー、貼り付けしたものです。ここで以下のようなActiveCellをベースに連番ふり、範囲を選択して罫線を引こうとすると、空白に見える部分まで選択されてしまいます。実際は、空白ではなくデータが "" のように残っているかと思いますが、この空白行の削除をマクロで行うと、データが２５００行もあるので時間がかかりすぎてしまいます。現在は手作業で、空白が始まるところから２５００行目までローを選択して削除しています。（この方法が早いのです。）この作業を　 Rows("5:2500").Select 　　Selection.Delete Shift:=xlUp のようにマクロで行いたいのですが、データが空白になる部分の選択をどのようにしたらよいか悩んでいます。ご教授いただければ幸いです。