[[20060412114230]]　『空欄があるセルの行を削除したい』（みかんず）　ページの最後に飛ぶ

『空欄があるセルの行を削除したい』（みかんず）

　　　Ａ　　　Ｂ

１　イヌ　　３匹

２　空欄

３　トリ　　４匹

Ａの列が空欄の場合、その行を削除するにはどうしたらいいですか？

フィルタかけて空欄を選択して、削除する方法は思いつくんですが、

他に方法があったら教えてください。

 こんな感じでしょうか？

 標準モジュールへ
'-----------------
Sub test()
Dim MyR As Long
Dim i As Long
MyR = Range("A" & Rows.Count).End(xlUp).Row
For i = MyR To 1 Step -1
    If IsEmpty(Range("A" & i)) Then
        Rows(i).Delete Shift:=xlUp
    End If
Next i
End Sub

 （キリキ）（〃⌒o⌒)b

 A列を選択して
 編集　→　ジャンプ　→　セル選択で空白セル選択
 選択されたセルを右クリックして、削除。
 BJ

お二人とも回答ありがとうございます。

（キリキ）さんに質問です。ご回答いただいたのはマクロですか？もしそうだとしたら、私マクロ初心者なので、どのようにやればいいか教えていただけますか？
おねがいします。

 はいはい。
 １）Alt + F11 で、Microsoft Visual Basic　を立ち上げる。
 ２）挿入 → 標準モジュール
 ３）出てきた画面に上記をコピペ
 ４）Alt + F8 
 ５）「test」を選択、実行

 以上で如何でしょう？
 （キリキ）(〃⌒o⌒)b

ありがとうございます。

応用してみたいんですけど、D列が空欄で、同じく行を消去したいんですが、どうしたらいいですか？（みかんず）

 D列の場合は、

 >MyR = Range("A" & Rows.Count).End(xlUp).Row

 >If IsEmpty(Range("A" & i)) Then

 AをD
 に変える、ですね。

 横取りレスすみません。
 (MARBIN)

 おっと、衝突～☆

 MARBINさん、フォローありがとうございます。
 （キリキ）(〃⌒o⌒)b

皆さんありがとうございます。早速やってみます。（みかんず）

ありがとうございました！！見事にできました。（みかんず）

コメント返信：

[ 一覧(最新更新順) ]

[[20060412114230]] 『空欄があるセルの行を削除したい』（みかんず） ページの最後に飛ぶ

[[20060412114230]]　『空欄があるセルの行を削除したい』（みかんず）　ページの最後に飛ぶ