vba 筛选重复数据,帮看一下小弟我的代码,多谢!

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