Worksheet_Change事件-重复检查，忽略空白

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    
    ' 设置需要进行重复检查的范围
    Set rng = Range("A1:A10")
    
    ' 检查目标单元格是否在需要进行重复检查的范围内
    If Not Intersect(Target, rng) Is Nothing Then
        ' 遍历范围内的每个单元格
        For Each cell In Intersect(Target, rng)
            ' 忽略空白单元格的变化
            If Not IsEmpty(cell.Value) Then
                ' 检查是否与其他单元格的值重复
                If Application.WorksheetFunction.CountIf(rng, cell.Value) > 1 Then
                    ' 执行相应的操作，如弹出警告框
                    MsgBox "该值已存在于其他单元格中！"
                    ' 或执行特定的逻辑
                    ' ...
                End If
            End If
        Next cell
    End If
End Sub