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

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

代码如下:

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