亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

excel按一列刪除重復(fù)行，并按另一列時(shí)間保留最近的一條記錄

  發(fā)布時(shí)間：2016-05-21 09:59:18   作者：秦風(fēng)   我要評論
本文介紹excel中根據(jù)A列公司名稱找出重復(fù)的記錄，并按照C列時(shí)間保留最近的一條記錄的方法，希望對大家有所幫助。

A列公司名稱，B列公司地址，C列時(shí)間。
我想根據(jù)A列找出重復(fù)的，然后刪除那一整行，只留下最近一個(gè)記錄。
 
例：  A列         B列            C列
   北京1公司   北京市西城區(qū)    2010-1-1
    北京5公司   北京市海淀區(qū)    2010-2-2
    北京1公司   北京市朝陽區(qū)    2010-3-20
    北京3公司   北京市東城區(qū)    2010-1-20
    北京2公司   北京市豐臺(tái)區(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公司   北京市豐臺(tái)區(qū)    2010-5-1


復(fù)制代碼
代碼如下:
Sub 刪除重復(fù)行()
'
'*******數(shù)據(jù)放在Sheet1并從A1開始
'*******A列放重復(fù)的
'*******C列放時(shí)間
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

錄一個(gè)宏用上面代碼替換，再運(yùn)行這個(gè)宏即可

相關(guān)文章

  • 在Excel2003/2007中刪除重復(fù)數(shù)據(jù)、重復(fù)行的圖文方法介紹

    大家在使用Excel表格總匯大批量數(shù)據(jù)時(shí)，難免會(huì)發(fā)現(xiàn)一些重復(fù)行和重復(fù)數(shù)據(jù)，這時(shí)我們就應(yīng)該將那些重復(fù)的數(shù)據(jù)刪除，以免會(huì)影響我們的工作，在Excel中刪除重復(fù)數(shù)據(jù)和重復(fù)行的方
    2012-02-20

  • Excel 找出重復(fù)行并只保留一個(gè)的實(shí)現(xiàn)方法

    今天一個(gè)朋友叫幫她改幾個(gè)Excel，將表中按某一列查找出重復(fù)的，并且只保留一個(gè)，想了一下辦法很快就搞定了。
    2009-08-30

  • Excel重復(fù)數(shù)據(jù)怎么去掉?Excel如何去重?

    在使用Excel處理大數(shù)據(jù)時(shí)，經(jīng)常需要對重復(fù)數(shù)據(jù)進(jìn)行去重處理，新手朋友可能就是一條一條的刪。其實(shí)找對方法了就簡單了，那么Excel重復(fù)數(shù)據(jù)怎么去掉?Excel如何去重?下面小編
    2016-03-20

  • excel2010快速刪除重復(fù)數(shù)據(jù)方法圖解

    在Excel工作表中面對著大量的數(shù)據(jù)，有些重復(fù)的內(nèi)容要?jiǎng)h除顯得很吃力，其實(shí)我們只要能利用好Excel中的功能，一切都不成問題。下面小編就為大家介紹excel2010快速刪除重復(fù)數(shù)
    2015-10-22

  • txt導(dǎo)入excel并清除重復(fù)數(shù)據(jù)的圖文教程

    EXCEL怎么導(dǎo)入文本txt數(shù)據(jù)并清除重復(fù)數(shù)據(jù)？有時(shí)候我們需要吧txt文件導(dǎo)入到excel中，但是，直接復(fù)制肯定不行，該怎么辦呢？下面分享txt導(dǎo)入excel并清除重復(fù)數(shù)據(jù)的圖文教程，
    2015-10-19

  • 在Excel2007中快速刪除重復(fù)數(shù)據(jù)項(xiàng)的詳細(xì)步驟

    在Excel以前的版本中，可以通過“高級篩選”來刪除重復(fù)記錄，在Excle 2007中不但保留了“高級篩選”這個(gè)功能，而更為值得注意的是Excel 2007增加了一個(gè)“刪除重復(fù)項(xiàng)”按鈕
    2012-12-03

  • 在Excel2007中如何找出重復(fù)數(shù)據(jù)

    們可能經(jīng)常需要在Excel表格中找出重復(fù)數(shù)據(jù)并將他們刪除，如果數(shù)據(jù)龐大，那么我們根本不好找出重復(fù)數(shù)據(jù)的。不過這里Word聯(lián)盟教大家一個(gè)好方法，可以幫你快突顯并找到重復(fù)數(shù)
    2012-03-29

  • 輕松去掉excel中同一列中的重復(fù)數(shù)據(jù)的方法

    我們在用excel進(jìn)行數(shù)據(jù)分析時(shí)常常需要進(jìn)行數(shù)據(jù)的去重或者合并匯總，特別當(dāng)我們需要篩選關(guān)鍵詞去做競價(jià)排名時(shí)，這種把excel表中同列數(shù)據(jù)去重的操作就很必要了。
    2010-05-28

最新評論