A、B、C、D 4列1-10行都放有字串想达到这样目: 把B、C、D 3列分别和A列同行字串相比较如果含有A列字串某个就把这个变成红色(A列不变) 例如:第行 4个字串分别是"019","484","3579","0126", C列"3579"中含有A列"019"中"9",就把"3579"中"9"变成红色,同样D列中"0126"中"0"也变成红色B列"484"和A列"019"没有相同,就什么都不做如何用VBA来实现这个目？

Sub colorX
For r = 1 To 10
lenr = Len(Cells(r, 1))
For c = 2 To 4
lenc = Len(Cells(r, c))
For i = 1 To lenr
For j = 1 To lenc
If Mid(Cells(r, c), j, 1) = Mid(Cells(r, 1), i, 1) Then
Cells(r, c).Characters(Start:=j, Length:=1).Font.ColorIndex = 3
End If
Next
Next
Next
Next
End Sub

　　注意: B, C, D 3列数据, 定要是文本如是数字, 只会判断第个, 如 TRUE, 便会将整个数字都变红因数字格式是无法将部分变成区别颜色