Sub FindFormatAndReplaceFormatDemo()
Application.FindFormat.Interior.ColorIndex = 6
Application.ReplaceFormat.Interior.ColorIndex = 14
Cells.Replace what:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True
'最后一句是关键,如果不写则起不到作用
End Sub