excel按一列删除重复行，并按另一列时间保留最近的一条记录
发布时间：2016-05-21 09:59:18 作者：秦风 
我要评论
我要评论本文介绍excel中根据A列公司名称找出重复的记录，并按照C列时间保留最近的一条记录的方法，希望对大家有所帮助。
A列公司名称，B列公司地址，C列时间。
我想根据A列找出重复的，然后删除那一整行，只留下最近一个记录。
例： A列 B列 C列
北京1公司 北京市西城区 2010-1-1
北京5公司 北京市海淀区 2010-2-2
北京1公司 北京市朝阳区 2010-3-20
北京3公司 北京市东城区 2010-1-20
北京2公司 北京市丰台区 2010-5-1
北京3公司 北京市宣武区 2010-7-1
删除后
北京1公司 北京市西城区 2010-3-20
北京5公司 北京市海淀区 2010-2-2
北京3公司 北京市东城区 2010-7-1
北京2公司 北京市丰台区 2010-5-1
复制代码
代码如下:Sub 删除重复行()
'
'*******数据放在Sheet1并从A1开始
'*******A列放重复的
'*******C列放时间
Sheets("Sheet1").Select
'A列到Z列排序</p> <p> Columns("A:Z").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, HEADER:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNorma
Range("A1").Select
GoTo tiaoc13
tiaoc1:
If ActiveCell.Offset(0, 2) >= ActiveCell.Offset(1, 2) Then GoTo tiaoc12
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Delete Shift:=xlUp
GoTo tiaoc13
tiaoc12: ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Delete Shift:=xlUp
tiaoc13:
Do While ActiveCell.Offset(0, 0) <> ""
If ActiveCell.Offset(0, 0) = ActiveCell.Offset(1, 0) Then GoTo tiaoc1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
'
'*******数据放在Sheet1并从A1开始
'*******A列放重复的
'*******C列放时间
Sheets("Sheet1").Select
'A列到Z列排序</p> <p> Columns("A:Z").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, HEADER:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNorma
Range("A1").Select
GoTo tiaoc13
tiaoc1:
If ActiveCell.Offset(0, 2) >= ActiveCell.Offset(1, 2) Then GoTo tiaoc12
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Delete Shift:=xlUp
GoTo tiaoc13
tiaoc12: ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Delete Shift:=xlUp
tiaoc13:
Do While ActiveCell.Offset(0, 0) <> ""
If ActiveCell.Offset(0, 0) = ActiveCell.Offset(1, 0) Then GoTo tiaoc1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
录一个宏用上面代码替换，再运行这个宏即可
相关文章
在Excel2003/2007中删除重复数据、重复行的图文方法介绍
大家在使用Excel表格总汇大批量数据时，难免会发现一些重复行和重复数据，这时我们就应该将那些重复的数据删除，以免会影响我们的工作，在Excel中删除重复数据和重复行的方2012-02-20- 今天一个朋友叫帮她改几个Excel，将表中按某一列查找出重复的，并且只保留一个，想了一下办法很快就搞定了。2009-08-30
- 在使用Excel处理大数据时，经常需要对重复数据进行去重处理，新手朋友可能就是一条一条的删。其实找对方法了就简单了，那么Excel重复数据怎么去掉?Excel如何去重?下面小编2016-03-20
- 在Excel工作表中面对着大量的数据，有些重复的内容要删除显得很吃力，其实我们只要能利用好Excel中的功能，一切都不成问题。下面小编就为大家介绍excel2010快速删除重复数2015-10-22
- EXCEL怎么导入文本txt数据并清除重复数据？有时候我们需要吧txt文件导入到excel中，但是，直接复制肯定不行，该怎么办呢？下面分享txt导入excel并清除重复数据的图文教程，2015-10-19
- 在Excel以前的版本中，可以通过“高级筛选”来删除重复记录，在Excle 2007中不但保留了“高级筛选”这个功能，而更为值得注意的是Excel 2007增加了一个“删除重复项”按钮2012-12-03
- 们可能经常需要在Excel表格中找出重复数据并将他们删除，如果数据庞大，那么我们根本不好找出重复数据的。不过这里Word联盟教大家一个好方法，可以帮你快突显并找到重复数2012-03-29
- 我们在用excel进行数据分析时常常需要进行数据的去重或者合并汇总，特别当我们需要筛选关键词去做竞价排名时，这种把excel表中同列数据去重的操作就很必要了。2010-05-28
最新评论