潜力博客

人生的最大遗憾莫过于错误地坚持了不该坚持的,轻易地放弃了不该放弃的...

« 通过百度看互联网的发展趋势Google.com Gmail 访问不了的解决办法 »

如何在excel删除重复项

如何在excel删除重复项?以下提供了二钟方法。
如果excel表里数据行不多,可以才用第一钟方法:
假设数据在A列,则在右侧添加B列,在B1中输入公式“=COUNTIF(A:A,A1)”,然后填充B列的数据。选择B列,选择工具栏[格式(O)]→[条件格式(D)],条件设为“单元格数值 大于 1”,格式设为“红色底色”。 重复项都用红色显示出来,B列是重复的次数,然后一个个删除重复项即可。

如果excel表里数据行很多,那就可以用第二钟方法使用宏实现:
步骤如下:
“工具”->“宏”->“Visual Basic编辑器”,在打开的VB编辑器中左侧有“工程”窗口,在这里的“模块”上点右键,“插入”->“模块”,此时,生成了“模块1”,双击“模块1”,在打开的窗口里写入需要的宏代码。要实现你所需要的功能的宏代码我已经为你写好,代码如下:
Sub sub1()
ActiveCell.SpecialCells(xlLastCell).Select
datarows = Selection.Row
If datarows <> 1 Then
For I = 1 To datarows
If Range("A" & CStr(I)) & Range("B" & CStr(I)) & Range("C" & CStr(I)) & Range("D" & CStr(I)) <> "" Then
j = datarows
Do While j > I
If Range("A" & CStr(I)) = Range("A" & CStr(j)) And Range("B" & CStr(I)) = Range("B" & CStr(j)) And Range("C" & CStr(I)) = Range("C" & CStr(j)) And Range("D" & CStr(I)) = Range("D" & CStr(j)) Then
Rows(j).Delete Shift:=xlUp
datarows = datarows - 1
End If
j = j - 1
Loop
End If
Next I
End If
End Sub
代码写好了,关闭VB编辑器。只要运行该宏就可以实现删除重复的项目的操作。“工具”->“宏” ->“宏”,选中“sub1”,点执行。
这段代码实现了如下功能:查找A列B列C列D列都相同的数据(区分大小写)并删除至只剩一行(即无重复),考虑到你可能使用空行来使数据更具结构性,因此,这里设置了不删除空行。由于宏操作不可撤消,请在使用该宏前备份数据。
 

  • 相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

Search

Categories

Previous

Comments

Archives

Copyright © 2008 潜力博客 All Rights Reserved.粤ICP备08117954号
Powered By Z-Blog Designed by Han'space