エクセル 空白の削除について

質問

はじめまして

今エクセルで困っています
例えば
A1に物の名前が入っており、B1に数が入ってるとします
その場合、B1に数量が入ってれば、そのまま
数量のところが、空白ならば、その列を削除をするとういう
繰り返し処理をしたいのですが、できるのでしょうか？

いい方法がありましたら教えてください
お願いします

回答No.3

qualheart · ベストアンサー

n = 1
Do While Cells(n, 1) <> ""
If Cells(n, 2).Value = "" Then
Cells(n, 2).Select
Selection.EntireRow.Delete
Else
n = n + 1
End If
Loop

でマクロを登録し、実行すれば。
ただし、A列の途中に空白が存在していると処理が終了してしまいますので、A列に空白がある場合はちょっと変えないといけませんが。

名前がA列、数値がB列でない場合は、
名前→Cells(n, 1)の「1」を実際の列の番号に変更
数値→Cells(n, 2)の「2」を実際の列の番号に変更
でいけると思います。

お礼

確認しました
ちゃんと思った通りに処理してくれました
助かりました

回答、ありがとうございました

回答No.2

mu2011

安直ですが、次の方法は如何でしょうか。
(1)Ｂ列で並び替え
(2)空白行は表下段にまとまると思いますので、行選択して削除

お礼

並び替えてしまうと
数量の昇順・降順になってしまうと思うんですが・・・
（違っていたらごめんなさい）
今回、空白の列を消して
そのまま、別の表に移したいんです。

言葉足らず、すいませんでした。

回答ありがとうございます

回答No.1

CHIPDALE77

マクロを組んでも出来そうですが、
単純にオートフィルタでその列の「空白以外のセル」を選択して
それを他のシートにコピーしてみては？？

お礼

オートフィルタですか
思いつきませんでした

マクロを作成しないとできないと思い
困っていました

参考にさせていただきます

回答、ありがとうございました