帮我看看判断某个单元格是否在某列的vba错哪里了

业务员

第i列的数据，如果在p列出现过，那么标红。


Sub 标红需要修改的名单()
    Dim I%, X, C
      For I = 3 To Range("p1048576").End(xlUp).Row
        With Sheets("结果").Range("p3:p" & Range("p" & Rows.Count).End(3).Row) '定位到最后一行的区域
            Set C = .Find(Cells(I, "I"), LookIn:=xlValues)
            X = C.Row
        End With
        If X > 0 Then
            Cells(I, "I").Font.Color = vbRed
        End If
      Next
End Sub



老师帮我看看错误在哪里呢

杨建营

Sub 标红需要修改的名单()
    Dim i%, C
    Columns("i").Font.Color = 1
    For i = 4 To Range("p1048576").End(xlUp).Row
        With Sheets("结果").Range("p4:p" & Range("p" & Rows.Count).End(3).Row) '定位到最后一行的区域
            Set C = .Find(Cells(i, "p"), LookIn:=xlValues)
        End With
        For j = 3 To [i100].End(3).Row
            If Cells(j, "I").Value = C Then
                    Cells(j, "I").Font.Color = vbRed
            End If
        Next
    Next   
End Sub

mmwwdd

mmwwdd

少了个判断，因为你的C是空的时候，还在赋值，所在就出现问题了

mmwwdd

加一个判断非空就行了，if not c is nothing then