Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8487 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33059】空白セルの削除 爺 06/1/1(日) 11:03 質問[未読]
【33060】Re:空白セルの削除 Kein 06/1/1(日) 12:16 回答[未読]
【33064】Re:空白セルの削除 爺 06/1/1(日) 17:59 質問[未読]
【33066】Re:空白セルの削除 Kein 06/1/1(日) 19:55 回答[未読]
【33072】Re:空白セルの削除 爺 06/1/1(日) 23:05 お礼[未読]
【33059】空白セルの削除
質問  爺  - 06/1/1(日) 11:03 -
引用なし
パスワード
   はじめまして
60の手習いではじめたVBAですが皆様のお力をお借りできれば幸いです。

IF関数で条件を満たさないセルに空白（""）を挿入したデータはコピーすると
本当の（？）空白セルになりません。
いま数値データが混在する列範囲（A:E)があって行単位で不規則にこのセルが範囲内に存在しています。
この空白を全削除したいのですがどのようにすればよいでしょうか
メニューから編集−−ジャンプ−−セル選択−−空白セル削除でうまく行きませんが、できればこの機能を生かしたVBAコードが書きたいのですが・・
【33060】Re:空白セルの削除
回答  Kein  - 06/1/1(日) 12:16 -
引用なし
パスワード
   一般的な方法は、最終入力行からループでさかのぼって "" のセルを探し、
その行を削除します。処理対象のシートを開いておいて・・

Sub Del_R()
　 Dim i As Long

　 Application.ScreenUpdating = False
　 For i = Range("A65536").End(xlUp).Row To 1 Step -1
　　　If Cells(i, 1).Value = "" Then
　　　　 Rowes(i).Delete xlShiftUp
　　　End If
　 Next i
　 Application.ScreenUpdating = True
End Sub

というコードを実行してみて下さい。
なお
>編集−−ジャンプ−−セル選択−−空白セル削除でうまく行きません
数式の条件のもう一方が数値になる、ということなら "" を捕捉するには
編集−−ジャンプ−−セル選択−−「数式」&「文字」で選択できるはずです。
数式の条件の両方とも文字列になってしまうなら、"" の代わりに FALSE などを
表示させるようにしておき
編集−−ジャンプ−−セル選択−−「数式」&「論理値」にチェックすることで
選択できるようになります。
【33064】Re:空白セルの削除
質問  爺  - 06/1/1(日) 17:59 -
引用なし
パスワード
   Kein さん,
ありがとうございます。
教えて戴いたコード実行してみましたら望み通りの形が得られました。
すこし実行時間が長くかかりましたがお尻から逆方向に実施しているからでしょうか・・
いいヒントをもらいましたので自分でも考えてみます。

対象としている範囲は「形式を選択して貼り付け」てありますので、数値と""文字だけの構成になっています。（約3000行で真ん中へんに空白と数値の入れ子データが集まっています）

編集−−ジャンプ−−セル選択では
定数＆文字で空白文字を捕捉できました。これをメニューの編集-削除でも所定の結果が得られることが判りました。まだやってないですがマクロ記録を取ってコードを利用できるでしょうか・・

ところで、""でない空白はVBAコード上ではどんな表現になるのか参考までに教えて戴ければありがたいのですが・・
【33066】Re:空白セルの削除
回答  Kein  - 06/1/1(日) 19:55 -
引用なし
パスワード
   >定数＆文字で空白文字を捕捉
が可能であれば

Range("A1", Range("A65536").End(xlUp)) _
.SpecialCells(2, 2).EntireRow.Delete xlShiftUp

というコードで削除できます。SpecialCellsメソッドの引数については、ヘルプを
参考にして下さい。
>""でない空白は
ブランクのセルであれば SpecialCells(4) です。xlCellTypeBlanks と等価
になります。
【33072】Re:空白セルの削除
お礼  爺  - 06/1/1(日) 23:05 -
引用なし
パスワード
   Keinさん

ほんとうにありがとうございました。
すべて解決しました。

おかげさまでこれまで疑問だったことも理解できました。
これからもよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8487 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free