VBAで対応するのはどうですか。
色がColorIndex値で表せる色なら
Sub test01()
Dim cl As Range
Sheets("Sheet1").Copy Before:=Sheets(1)
ci= Range("a3").Interior.ColorIndex
For Each cl In Range("a1:j20")
If cl.Interior.ColorIndex = ci Then
cl.Interior.ColorIndex = 0
End If
Next
'Range("a1:j20").PrintOut
End Sub
・Range("a3").のA3をその特定の色がついているセル
の1例に変える。
・Range("a1:j20")を質問者のケースにあわせ、適当に変える。
・最後にRange("a1:j20").PrintOutのコメントを外せば印刷します。
・消したい色が複数あればCase文で対応
投稿日時 - 2003-08-23 06:22:49