若你的数据在A1：F100，VBA代码如下：
Sub 红色格填黑色字()
Dim C As Range
For Each C In [A1:F100]
If C.Interior.ColorIndex = 3 Then C.Font.ColorIndex = 1 ' 3：红色索引值，1：黑色
If C.Interior.ColorIndex = 6 Then C.Font.ColorIndex = 7 ' 6：黄色 ，7：粉红色
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024