エクセル マクロ 範囲の検索と削除

質問

エクセル2010を使っています。

画像の様に、A列～CQ列にの8行の表があります。

そのE列には、画像の様な文字が挿入されています。

やりたい事は、その表内のE列の文字が【全て同じ】ならば表ごと削除し、空白部分は上に詰めたいと思います。

画像で言えば、１～８行、１７～２４行を削除すると言う事です。

詳しい方、教えていただけませんでしょうか。
よろしくお願い致します。

回答No.1

keithin · ベストアンサー

sub macro2()
　dim r as long
　for r = application.floor(range("E65536").end(xlup).row-1, 8) + 1 to 1 step -8
　　if application.countif(cells(r, "E").resize(8, 1), cells(r, "E")) = 8 then
　　　cells(r, "E").resize(8, 1).entirerow.delete shift:=xlshiftup
　　end if
　next r
end sub
とか。

お礼

早速のご回答ありがとうございます。

お陰さまで解決することが出来ました、感謝いたします。