随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA检查重复数据的重复次数？工具/原料more手机方法/步骤1/5分步阅读

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

2/5

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

3/5

在VBA编辑器中插入模块

4/5

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

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 IfEnd IfEnd IfEnd Sub

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

智能手机助理给我们的生活带来了极大的便利！