Sub 色の付いたセルの行を削除()
‘
‘ 　色の付いたセルの行を削除、同一マクロ内で引数は被らないように(i,n等）
‘
Range(“A1”).Select
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 = 13551615 Then Rows(i).Delete
Next n
Next i
End Sub

Interior.ColorIndex = 13551615　この数字の部分に削除したい色を入れる。