Excelのメモ 〜 色のついたセルのある行を削除

　　　Excelで、色のついたセルのある行を削除するマクロ

　　　Sub DeleteColoredLines()
　　　x = ActiveCell.SpecialCells(xlLastCell).Row
　　　y = ActiveCell.SpecialCells(xlLastCell).Column
　　　For i = x To 1 Step -1
　　　For n = 1 To y
　　　If Cells(i, n).Interior.ColorIndex <> xlNone Then Rows(i).Delete
　　　Next n
　　　Next i
　　　End Sub

　　　　参照元： 教えてgoo!  "shishishishi"氏よりの投稿