求助VBA高手

liuzhiyan126

如何在一个区域内 标记重复的值（颜色变掉）

李甲

用条件格式的COUNTIF函数

yqdaqinqin

条件格式就可以，为什么要用VBA？

liuzhiyan126

因为本身的表格特别的的大 ，用VBA，写会使得本身的表格，不会卡！

Sub 查找()
      Dim rg As Range, item As Integer, cr As Integer
         cr = Sheets("开").[f65536].End(xlUp).Row + 1
         rg = Sheets("开").[j;f]
         For Each rg In Sheets("开").[cells(cr,1):j1]
         If Application.CountIf(Sheets("开").[cells(cr,1):f1], rg) > 1 Then
         rg = rg + 1
         Sheets("开").Cells(rg, 1).Font.ColorIndex = 3
        msbox = "you"
        
         End If
         Next
     End Sub
帮我看看 有什么问题？