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

fieldset{padding:10px;}

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 iEnd Sub要实现点一下某单元格,该单元格所在的列中重复的数据能红色字体标出.我觉得 CountIf(Columns(j), ij) > 1 这里有问题,望达人指点,谢谢!!!我知道excel用条件单元格,可以实现这个功能,但更想知道vba怎么实现的.——解决方案——————————————————–COUNTIF()属于工作表函数，在VBA中，好象不支持。——解决方案——————————————————–改成If Application.WorksheetFunction.CountIf(Columns(j), Cells(i, j)) > 1 Then功夫不负有心人。

相关文章：

你感兴趣的文章：

标签云：