工作表不允许A列至E列有重复值
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim cntA As Integer
    For Each rngA In Target
        If rngA = "" Then
        Else
            cntA = Application.WorksheetFunction.CountIf(ActiveSheet.Range("A:e"), rngA) '查找的列范围
      If cntA > 1 Then
                MsgBox "重复数据[" & rngA & "]", vbCritical, "错误"
                 rngA = ""
            End If
        End If
    Next
End Sub