你是要相同数据的并且是同行的才显示红色是吧?
可是看你贴的代码是数据不同了就把两个单元格的的字显示红色啊.
先按你贴的代码加上 是否同行的判断 贴给你 你试试吧
Dim cc
With NewDataBook.Sheets(1)
For cc = 2 To .UsedRange.Rows.Count
If .Cells(cc, 1) <> .Cells(cc, 2) And .Cells(cc, 1).Row = .Cells(cc, 2).Row Then
.Cells(cc, 1).Font.Color = vbRed
.Cells(cc, 2).Font.Color = vbRed
End If
End With
Next
不用VBA
假定两列分居A、B列，从第二行开始
c2输入=if(countif(b:b,a2)>=1,“重复","")
下拉复制填充
如比较A列和B列，则在C1输入=COUNTIF(A1,B1)
，相同显示1，不相同显示0，试试看，下拉拖到你所需要的地方
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024