第2个回答 2015-07-22
需要使用宏处理
Sub fillcolor()
For i = 2 To 3 'C列要修改格式的行2-100
For j = 1 To 100 'A,B两列都是100行
Range("C" & i).Characters(InStr(Range("C" & i), Range("A" & j)), Len(Range("A" & j))).Font.ColorIndex = 4
Range("C" & i).Characters(InStr(Range("C" & i), Range("B" & j)), Len(Range("B" & j))).Font.ColorIndex = 5
Next
Next
End Sub本回答被网友采纳