エクセル 網掛けしてあるセルの行を残してそれ以外の行を削除するＶＢＡ

質問

windows-xp、エクセル2003を使っています。

エクセルデータがＡ列からＵ列まであります。
（1000件程かな、時々ＡＡ列まである時もあります）
Ｇ列には、網掛けしてあるセルがあります。
そこで！！
網掛けしてあるセルの行だけを残して、網掛けがされていない行のデータを一気に削除する！というマクロ（ＶＢＡ）を作りたいのですが、どうすればよいでしょうか？
ＶＢＡまだ、よくわかっていないので、初心者レベルでわかりやすく教えてくださると助かります。
宜しくお願い致しますm(_　_)m

回答No.1

ham_kamo

Alt+F11でVBAの画面を開き、左側のツリーからブック名を選択し、右クリックから「挿入」＞「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。

Sub 網掛けのない行を削除()
　Dim i As Integer
　For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
　　If Cells(i, "G").Interior.Pattern = xlNone Then
　　　Rows(i).Delete
　　End If
　Next
End Sub

その画面でF5キーを押すか、Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。
エラーが出たり、希望の動作と違ったら補足をお願いします。なお、マクロは実行したら元に戻せないので、ファイルのバックアップをとっておいた方がよいでしょう。

補足

大変わかりやすい回答で、一発で出来てしまいました！！！
ありがとうございました！！！！！

ＶＢＡに詳しい方だと察します。
お願いついでにもう少しマクロを教えてください。

上記のマクロを走らせてから、
⇒「列１」に１行挿入させて、
⇒セル「Ｇ1」に、マクロを走らせた日から２週間後の日付が出てくるようにして、
⇒セル「Ｈ１」に、『←次回進捗日』という言葉をいれて、
⇒セル「Ｉ１」に、網掛けされたセルの個数を表示させたい。
　但し、網掛けされたセルの数え始めは、３行目から数えること。
　なぜかというと、１行目は、空欄になっており、前述したことが書かれてあるはずだから。２行目は「各項目の名称」が入っているので。
⇒そして、セル「Ｌ１」に『／』という記号をいれて、
⇒セル「Ｎ１」に罫線（外枠）をつけて、
⇒セル「Ｑ１」に『←未引当』という言葉をいれたい。

補足欄で、このボリュームの質問はどうかとも思いますが、ＶＢＡを大変熟知してされている方と察し、もし、お答え頂けるようでしたらお願いしたいと思います。
本当に厚かましくて申し訳ありませんが、何卒宜しくお願い致します。