vba 筛选重复数据,帮看一下我的代码,谢谢!!
Sub 筛选重复数据()
Dim i As Integer
Dim j As Integer
j = ActiveCell.Column
finalrow = Cells(65536, j).End(xlUp).Row
For i = 1 To finalrow
If Application.WorksheetFunction.CountIf(Columns(j), ij) > 1 Then
Cells(i, j).Interior.ColorIndex = 3
End If
Next i
End Sub


要实现点一下某单元格,该单元格所在的列中重复的数据能红色字体标出.
我觉得 CountIf(Columns(j), ij) > 1 这里有问题,望达人指点,谢谢!!!
我知道excel用条件单元格,可以实现这个功能,但更想知道vba怎么实现的.

[解决办法]
COUNTIF()属于工作表函数，在VBA中，好象不支持。

[解决办法]
改成
If Application.WorksheetFunction.CountIf(Columns(j), Cells(i, j)) > 1 Then