Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2714 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66536】ブランクの行を削除するいい方法 Sonson 10/9/8(水) 23:04 質問[未読]
【66538】Re:ブランクの行を削除するいい方法 kanabun 10/9/8(水) 23:17 発言[未読]
【66539】Re:ブランクの行を削除するいい方法 かみちゃん 10/9/8(水) 23:21 発言[未読]
【66540】Re:ブランクの行を削除するいい方法 kanabun 10/9/8(水) 23:30 発言[未読]
【66542】Re:ブランクの行を削除するいい方法 Sonson 10/9/9(木) 0:04 お礼[未読]
【66536】ブランクの行を削除するいい方法
質問  Sonson  - 10/9/8(水) 23:04 -
引用なし
パスワード
   A列目の値がブランクならその行を削除したいと考えています。

1.データの行数を確認する (nだったとする）
2. for-next文でn ,n-1 , …, 1行を順にチェックし
A列の値がブランクなら削除する

という流れをとっていますが、 for-next文でn ,n-1 , …, 1行
とする以外に、この目的を達する処理を行うことはできるんでしょうか？
-1ずつ減るというのが個人的に気持ち悪くて。
【66538】Re:ブランクの行を削除するいい方法
発言  kanabun  - 10/9/8(水) 23:17 -
引用なし
パスワード
   ▼Sonson さん：

>A列目の値がブランクならその行を削除したいと考えています。

行数はどのくらいですか？

数千行なら、

　On Error Resume Next
　
　Range("A1", Cells(Rows.Count, 1)) _
　　　　.SpecialCells(xlBlanks).EntireRow.Delete
　
　On Error GoTo 0

のような方法もあります。
【66539】Re:ブランクの行を削除するいい方法
発言  かみちゃん  - 10/9/8(水) 23:21 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> for-next文でn ,n-1 , …, 1行とする以外に、この目的を達する処理

・A列で並べ替えて一括削除
・オトーフィルタでA列がブランクセルを抽出して一括削除
・A列でブランクセルのみを一般操作のジャンプ機能で選択して、行削除
・数式でブンクかどうかを判定して、ブランク行を削除

などなど、いろいろあります。
ブランクとは、数式等ではなく、何も値が入っていないものという前提です。
【66540】Re:ブランクの行を削除するいい方法
発言  kanabun  - 10/9/8(水) 23:30 -
引用なし
パスワード
   ▼Sonson さん：

行数が多いなら、
一般機能[データ]-[フィルタ]-[フィルタオプションの設定]で、
「A列に値の入っている行だけ」
別シートに抽出したほうが速いです。
【66542】Re:ブランクの行を削除するいい方法
お礼  Sonson  - 10/9/9(木) 0:04 -
引用なし
パスワード
   みなさんさすがですねー。
教えてもらったことでチャレンジしてみます♪

ありがとう
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2714 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free