用公式是可以,但我要用VB或VBA操作,谢谢!
下面的代码有点问题,如果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
你的代码结果意思和我的一样,我的意思是A列和B列中有重复数据,不管重复的数据是否在同一行不管他,只需要将A列和B列中不重复的数据变成红色即可。
具体范例请你参考附件图片,谢谢!
Dim cc
With NewDataBook.Sheets(1)
h = .UsedRange.Rows.Count
For x = 1 To 2
y = IIf(i = 1, 2, 1)
For cc = 2 To h
Set rng = .Range(.Cells(2, y), .Cells(h, 2)).Find(.Cells(cc, x), lockat:=xlWhole)
If rng Is Nothing Then .Cells(cc, x).Font.Color = vbRed
Next
End If
End With
Next
RNG没有定义命名,报错了。在VB工程里无法识别。
追答我是用VBA 写的.你在VB里把rng 定义成excle的range变量类型.