下面的代码有点问题，如果A列和B列的相同数据不在同一行，最后的结果也会显示红色，请知道的朋友帮忙修改，谢谢！
...
Dim cc
For cc = 2 To NewDataBook.Sheets(1).UsedRange.Rows.Count
If NewDataBook.Sheets(1).Cells(cc, 1) <> NewDataBook.Sheets(1).Cells(cc, 2) Then
NewDataBook.Sheets(1).Cells(cc, 1).Font.Color = vbRed
NewDataBook.Sheets(1).Cells(cc, 2).Font.Color = vbRed
End If
Next
你是要相同数据的并且是同行的才显示红色穗此碧是吧?
可是看你贴的代码是数据不同了就把两个单元格的的字猜举显示红色啊.
先按你贴的代码加上 是否同行扒数的判断 贴给你 你试试吧
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，试试看，下颤源拉拖到你所需茄散态要的地方