在Excel中检查并删除重复数据的三个方法

在设计学生学号和成绩表的Excel中，有的时侯要求数据是不能重复的，如学号、电话号码等，但是我们在输入的时候经常出现录入重复的情况，特别是个别不认真的班主任，造成我们在期末发布成绩的时候出现很多问题，同一个学号居然对应几个学生，怎样检查数据的唯一性并将重复数据删除呢。研究后找了三个方法。

   方法一

   假如在A1至A25单元格区域内有学号，为检查有没有重复的学号，则在B2单元格内输入公式“=countif(A:A,A2)”，然后选定B2单元格，向下拖动，直到B25为止，在B列，则出现了左侧学号出现的次数，将重复数据手工删除即可。

   方法二

   选定A2至A25区域，单击“格式”-“条件格式”，在条件1栏内选择“公式”，在公式栏内输入“countif(A:A,A2)>1”。然后，在单元格格式内选定“图案”，将图案颜色设置成红色，点击“确定”后，则有重复学号的单元格显示为红色。手工删除重复数据即可。

   方法三

   喜欢用VBA编程的朋友可以采用编写VBA代码的方法，让计算机自动找出重复数据并自动删除重复行。具体过程不一一叙述，代码如下：

Private Sub tj()
  Dim i As Integer                     //定义I为整型变量
  Dim j  As Integer                    //定义J为整型变量 
 Sheets("Sheet1").Select               //选定“sheet1”工作表 
   i = 2                               //给i赋初值，即从第二行开始
   Do While Cells(i, 1) <> ""          //当单元格为空时退出循环 
         j = i + 1
         Do While Cells(j, 1) <> ""    //当单元格为空时退出循环
                If Cells(i, 1) = Cells(j, 1) Then    //判断两个单元格数据是否重复
                   Cells(j, 1).Select                //选定重复单元格
                   Selection.EntireRow.Delete        //删除选定单元格所在行
                End If
         j = j + 1
         Loop
   i = i + 1
   Loop
 
End Sub