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

来源：百度文库编辑：偶看新闻时间：2024/05/03 06:31:30

在设计学生学号和成绩表的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

EXCEL中有近万条数据，每条数据有十多个数据项；如何在这十几列近万行的表格中剔除完全重复的数据并删除？ excel表格中怎么检查重复数据如何删除EXCEL表中重复的数据如何删除Excel表里的重复数据？如何删除EXCEL中重复的记录 EXCEL里如何在两组数据中提取重复的数据能否在excel中对一列数据进行长度和重复数据的有效值设置？ excel中提取重复数据请问在EXCEL中在同一字段中怎么样去掉重复的数据？急,,急..量大,如何在EXCEL中批量查找并删除数据怎样在EXCLE大量的数据中删除重复的数据我的EXCEL中有2万多个数据，但是有一部份是重复的，请问怎么删除重复数据啊？求在ACCESS中定时删除重复的数据（请编写程序，并给出执行所编写的程序的详细步骤）怎么在 Excel 中删除符合条件的数据? 如何快速找出EXCEL中重复的条目.(数据)... 在excel中如何查找重复的名字？ excel中如何删除有部分重复字段的记录关于删除SQL表中重复数据的问题如何将EXCEL文件里重复的数据合并并成一个呢? 如何将EXCEL文件里重复的数据合并并成一个呢? 向excel强人求教:在一张复杂的数据表中,我想选择其中的重复数据,该如何具体操作? 在excel中如何全部查找间断的单元格数据并复制到另一单元格在excel怎样删除重复的资料！（要自动的) 1,如何在EXCEL表的某一列中任意插入一行或多次插入?列中含多组重复数据.