excel中如何检查重复的数据.docx

excel中如何检查重复的数据作者：吉波第一步：选定要检查重复数据可能存在的所有区域第二步：“格式”——》“条件格式”——》选择公式第三步：输入： =countif(区域，A1)1如：=countif（$A:$F,A1)1 代表在第A列到第F列区域内检查，A1为自身单元格，系统会为每一个单元格转接复制第四步：格式——》字体——》“选择相异颜色”就可以了在设计学生学号和成绩表的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行收藏按 Alt+F11 打开VBA编辑器，编写以下函数：批量隔行删除Sub?? RowsDelete(Odd?? As?? Long)e/2009Dim?? nRows?? As?? Long??Dim?? i?? As?? Long??With?? Worksheets(sheet1)nRows?? =?? .UsedRange.Rows.CountFor?? i?? =?? nRows?? To?? 2?? Step?? -1If I Mod 2 = odd Then .Row(i).Delete End if NextEnd withEND SubOdd为0时删除偶数行为1时删除奇数行Sub test() Sheet1.RowsDelete(0)End sub