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"氏よりの投稿

Excelのメモ 〜 1行おきに色をつける

　　　Excelで1行おきに色をつける方法。
　　　「条件付き書式」で「数式が」を条件に、以下のように「=MOD(ROW0,2)=0」を入力する。
　　　「該当する行（行番号）が、2で割って割り切れれば 〜」という条件式。

　　　同様に「列」に対して色を付ける場合は「=MOD(COLUMN(),2)=0」とする。

　　　　参照元： MS-Officeヘルプ･サイト