怎样使用VBA检查重复数据的重复次数？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_Change(ByVal Target As Range)

 

    If Target.Count=1 And Target.Column=3 Then

 

                      '如果一次仅在单个单元格输入且当前列为3

 

    If Application.WorksheetFunction.CountIf(Target.EntireColumn,

 

      Target.Value) > 1 Then

 

      msg=MsgBox("出现重复数据：" & Target.Value & Chr(10) &

 

            "在本列此数据已重复出现" & _

 

      WorksheetFunction.CountIf(Target.EntireColumn,Target.Value)–1

 

            & "次" _

 

      & Chr(10) & "想保留请点Y，否则点N", vbYesNo+vbOKOnly, "提示")

 

      If msg=vbNo Then '选择不保留则该单元格赋空值

 

      Target.ClearContents

 

    Else: If msg=vbYes Then Exit Sub

 

    End If

 

End If

 

End If

 

End Sub

5、在C列输入一个已存在的学号“025”，将弹出与当前单元格数据重复次数提示框，并提示是否保存当前输入数据。选择“是”则保存，“否”则清除已输入数据