Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5780 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48978】空白に見えるセルの削除 gogo 07/5/19(土) 1:47 質問[未読]
【48979】Re:空白に見えるセルの削除 Kein 07/5/19(土) 2:39 発言[未読]
【48988】Re:空白に見えるセルの削除 gogo 07/5/19(土) 16:55 お礼[未読]
【48981】Re:空白に見えるセルの削除 To 07/5/19(土) 8:35 発言[未読]
【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

のようにマクロで行いたいのですが、データが空白になる部分の選択を
どのようにしたらよいか悩んでいます。

ご教授いただければ幸いです。
【48979】Re:空白に見えるセルの削除
発言  Kein  - 07/5/19(土) 2:39 -
引用なし
パスワード
   どのデータがどの列に入力されているのか、はっきりしないので
仮に B列 で "" 以下を見つけて消すとすると

Dim LR As Long

LR = Range("B:B").Find("*", , xlValues, _
xlPart, , xlPrevious).Row + 1
Rows(LR & ":2500").ClearContents

で、出来ます。
セルは削除するよりクリアした方が、圧倒的に速いです。
【48981】Re:空白に見えるセルの削除
発言  To  - 07/5/19(土) 8:35 -
引用なし
パスワード
   ▼gogo さん：
マルチポストは避けましょう。
【48988】Re:空白に見えるセルの削除
お礼  gogo  - 07/5/19(土) 16:55 -
引用なし
パスワード
   うまくいきました。
ありがとうございます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5780 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free