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

質問

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

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

回答No.2

ham_kamo

ご希望にお応えしてマクロを拡張してみました。

・日付のフォーマットが書かれてないので、とりあえず「4月14日」という形式にしています。

・網掛けされたセル（Ｇ列）の数を取得するのに、網掛け以外の行を削除した後、Ｇ列の一番最後にデータが入っている行を割り出して、３行目からカウントということなのでその数から－２を引いて算出しています。もしＧ列にデータが入ってなく空の場合がある、というのであれば、この方法では誤った値が表示されてしまう可能性があるので、その場合は別の方式に修正するので補足をお願いします。

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

　'先頭に１行挿入
　Rows(1).Insert

　'G1セルに2週間後の日付を設定
　'日付の指定は 「4月1日」 の形式。
　'「2007/4/1」の様にする場合は "yyyy/m/d"
　'「4/1」のようにするときは、"m/d" に変更してください。
　Range("G1").NumberFormatLocal = "m月d日"
　Range("G1").Value = Date + 14

　'H1セル設定
　Range("H1").Value = "←次回進捗日"

　'I1セル設定。G列の最後にデータが入っている行からデータ数を算出
　Range("I1").Value = Cells(Rows.Count - 1, "G").End(xlUp).Row - 2

　'L1セル設定
　Range("L1").Value = "／"

　'N1に外枠罫線設定
　For B = 1 To 4
　　With Range("N1").Borders(B)
　　　.LineStyle = xlContinuous
　　　'次の行はN1セルの外枠の罫線の太さ。中(xlMedium)を指定しているが、
　　　'細い線の場合は xlThin、太い線の場合は xlThick に変更してください。
　　　.Weight = xlMedium
　　　.ColorIndex = xlAutomatic
　　End With
　Next

　'Q1セル設定
　Range("Q1").Value = "←未引当"
End Sub

補足

お礼が遅くなりすみません。
Ｇ列の解説、かなりわかりやすく、納得しました。
その他の解説もどういう意味なのかがわかって大変勉強になっています。
そうやってＶＢＡを組み立てていくのですね。
ありがとうございますm(_　_)m

また補足ではないのですが、教えてください。
２行目のセルには、いろいろな項目があるのですが、
「品目テキスト」「明細」だけに水色で網掛けをしたいのです。
そういうときのＶＢＡはどうなりますか？
質問が一回で済まなくて申し訳ありませんが、宜しくお願い致しますm(_　_)m