excel按一列删除重复行，并按另一列时间保留最近的一条记录

办公教程导读

收集整理了【excel按一列删除重复行，并按另一列时间保留最近的一条记录】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1213字，纯文字阅读大概需要2分钟。

办公教程内容图文

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

录一个宏用上面代码替换，再运行这个宏即可