ExcelVBA特定の列にデータがある行を消したい

質問

Excel2003を使っているのですが、VBAを使って特定の列（たとえば、I列）にデータがある（空白でない）行をすべて消したいのですが、どのようなマクロを書けばできるでしょうか？

回答No.2

mar00 · ベストアンサー

Sub Macro1()

For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 '(1)
If Range("I" & i) <> "" Then
Rows(i).Delete '(2) 行を削除
Rows(i).ClearContents '(3) 行の内容をクリアするだけ
End If
Next i

End Sub
(1) Toの後の3をデータの始まる行番号に直して
(2)、(3)は行いたい処理の方を残して下さい。

お礼

ご回答ありがとうございました。
想定通りの回答で大変助かりました。

回答No.3

keithin

＞たとえば、I列）にデータがある（空白でない）行をすべて消したい

Ｉ列に「生データの有無」で判断して良いなら

sub Sample1()
　range("I:I").specialcells(xlcelltypeconstants).entirerow.delete
end sub

みたいな具合でも。

実は生データを入れてるんじゃなくて数式の計算結果で仕分けたかった場合は，オートフィルタをＩ列に取り付けて絞り込んで削除する，といったマクロでも良いです。
また表にタイトル行があってその行は（空白じゃないけど）消したくない，とかそういった追加の細工が必要な場合もあるかもしれませんので，適宜応用して活用してください。

お礼

ご回答ありがとうございました。
オートフィルタを利用した方法を想定しておりましたが、No2の方がすばらしいマクロを教えてくださいましたので、こちらで行こうと思います。

回答No.1

fujiponxx

マクロ記録では以下のようになります。

Columns("I:I").Select
Selection.ClearContents

補足

説明の仕方が悪く、意図したものとは異なりました。
ご回答ありがとうございました。