excel按一列刪除重復行，并按另一列時間保留最近的一條記錄
發(fā)布時間：2016-05-21 09:59:18 作者：秦風 
我要評論
我要評論本文介紹excel中根據(jù)A列公司名稱找出重復的記錄，并按照C列時間保留最近的一條記錄的方法，希望對大家有所幫助。
A列公司名稱，B列公司地址，C列時間。
我想根據(jù)A列找出重復的，然后刪除那一整行，只留下最近一個記錄。
例： A列 B列 C列
北京1公司 北京市西城區(qū) 2010-1-1
北京5公司 北京市海淀區(qū) 2010-2-2
北京1公司 北京市朝陽區(qū) 2010-3-20
北京3公司 北京市東城區(qū) 2010-1-20
北京2公司 北京市豐臺區(qū) 2010-5-1
北京3公司 北京市宣武區(qū) 2010-7-1
刪除后
北京1公司 北京市西城區(qū) 2010-3-20
北京5公司 北京市海淀區(qū) 2010-2-2
北京3公司 北京市東城區(qū) 2010-7-1
北京2公司 北京市豐臺區(qū) 2010-5-1
復制代碼
代碼如下:Sub 刪除重復行()
'
'*******數(shù)據(jù)放在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
'
'*******數(shù)據(jù)放在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中刪除重復數(shù)據(jù)、重復行的圖文方法介紹
大家在使用Excel表格總匯大批量數(shù)據(jù)時，難免會發(fā)現(xiàn)一些重復行和重復數(shù)據(jù)，這時我們就應該將那些重復的數(shù)據(jù)刪除，以免會影響我們的工作，在Excel中刪除重復數(shù)據(jù)和重復行的方2012-02-20- 今天一個朋友叫幫她改幾個Excel，將表中按某一列查找出重復的，并且只保留一個，想了一下辦法很快就搞定了。2009-08-30
Excel重復數(shù)據(jù)怎么去掉?Excel如何去重?
在使用Excel處理大數(shù)據(jù)時，經(jīng)常需要對重復數(shù)據(jù)進行去重處理，新手朋友可能就是一條一條的刪。其實找對方法了就簡單了，那么Excel重復數(shù)據(jù)怎么去掉?Excel如何去重?下面小編2016-03-20excel2010快速刪除重復數(shù)據(jù)方法圖解
在Excel工作表中面對著大量的數(shù)據(jù)，有些重復的內(nèi)容要刪除顯得很吃力，其實我們只要能利用好Excel中的功能，一切都不成問題。下面小編就為大家介紹excel2010快速刪除重復數(shù)2015-10-22txt導入excel并清除重復數(shù)據(jù)的圖文教程
EXCEL怎么導入文本txt數(shù)據(jù)并清除重復數(shù)據(jù)？有時候我們需要吧txt文件導入到excel中，但是，直接復制肯定不行，該怎么辦呢？下面分享txt導入excel并清除重復數(shù)據(jù)的圖文教程，2015-10-19在Excel2007中快速刪除重復數(shù)據(jù)項的詳細步驟
在Excel以前的版本中，可以通過“高級篩選”來刪除重復記錄，在Excle 2007中不但保留了“高級篩選”這個功能，而更為值得注意的是Excel 2007增加了一個“刪除重復項”按鈕2012-12-03- 們可能經(jīng)常需要在Excel表格中找出重復數(shù)據(jù)并將他們刪除，如果數(shù)據(jù)龐大，那么我們根本不好找出重復數(shù)據(jù)的。不過這里Word聯(lián)盟教大家一個好方法，可以幫你快突顯并找到重復數(shù)2012-03-29
輕松去掉excel中同一列中的重復數(shù)據(jù)的方法
我們在用excel進行數(shù)據(jù)分析時常常需要進行數(shù)據(jù)的去重或者合并匯總，特別當我們需要篩選關鍵詞去做競價排名時，這種把excel表中同列數(shù)據(jù)去重的操作就很必要了。2010-05-28