[求助]如何查找单元格中的重复值并用突出显示出来?

酔意流年

不知道能不能帮我解决下我的问题呢？能对A,B两列根据A列的条件确定B列的重复值突出显示么？如A列相同的值所在的行B列里也也相同则判断B列是重复，如果A列值不相同但所在的行里对应的B列这两个值相同，则B列为不重复的值不需要突出显示。

风云际会6

Sub gwl()
h = Range("a65536").End(xlUp).Row
For i = 2 To h
If Application.CountIf(Range("a2:a" & h), Cells(i, 1)) > 1 Then
    If Application.CountIf(Range("b2:b" & h), Cells(i, 2)) > 1 Then
       Cells(i, 2).Interior.Color = 65535
       End If
       End If
       Next
      

End Sub

酔意流年

风云际会6 发表于 2012-3-12 11:40
Sub gwl()
h = Range("a65536").End(xlUp).Row
For i = 2 To h

其实我不太懂VB语言  不知道大神能翻译成C#的代码么

风云际会6

酔意流年 发表于 2012-3-12 11:46
其实我不太懂VB语言  不知道大神能翻译成C#的代码么

对C#我不会的

酔意流年

风云际会6 发表于 2012-3-12 11:48
对C#我不会的

大神 那可以注释下你的代码么？我好理解了 自己转成C#代码试试看

酔意流年

风云际会6 发表于 2012-3-12 11:48
对C#我不会的

If Application.CountIf(Range("a2:a" & h), Cells(i, 1)) > 1 Then 这句话是什么意思？

风云际会6

酔意流年 发表于 2012-3-12 11:53
If Application.CountIf(Range("a2:a" & h), Cells(i, 1)) > 1 Then 这句话是什么意思？

If Application.CountIf(Range("a2:a" & h), Cells(i, 1)) > 1 Then，这句的意思是查找Cells(i, 1)的值在A例中是否大于1个，也就是是否有重复，如果有就执行下面的代码

酔意流年

风云际会6 发表于 2012-3-12 14:34
If Application.CountIf(Range("a2:a" & h), Cells(i, 1)) > 1 Then，这句的意思是查找Cells(i, 1)的值在 ...

好的谢谢 问下 application.CountIf此函数的方法是什么意思
我不知道怎么转成C#的代码

风云际会6

酔意流年 发表于 2012-3-12 15:04
好的谢谢 问下 application.CountIf此函数的方法是什么意思
我不知道怎么转成C#的代码

别问我了，我不懂C语言

酔意流年

风云际会6 发表于 2012-3-12 15:16
别问我了，我不懂C语言

嗯 还是谢谢你了