资源预览内容
第1页 / 共3页
第2页 / 共3页
第3页 / 共3页
亲,该文档总共3页全部预览完了,如果喜欢就下载吧!
资源描述
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) /当单元格为空时退出循环If Cells(i, 1) = Cells(j, 1) Then /判断两个单元格数据是否重复Cells(j, 1).Select /选定重复单元格Selection.EntireRow.Delete /删除选定单元格所在行End Ifj = j + 1Loopi = i + 1LoopEnd 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 -1 If I Mod 2 = odd Then.Row(i).DeleteEnd if NextEnd withEND SubOdd 为 0 时删除偶数行 为 1 时删除奇数行Sub test()Sheet1.RowsDelete(0)End sub
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号