excel按一列删除重复行，并按另一列时间保留最近的一条记录
发布时间：2023-06-23 22:09:52
本文介绍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列排序
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
录一个宏用上面代码替换，再运行这个宏即可
0
投稿猜你喜欢
- Excel的两端对齐方式，在水平对齐和垂直对齐中，都可以使用。具体使用方法：右击单元格区域点击”设置单元格格式“点击”对齐“”水平对齐“和”
现在荣耀笔记本大部分预装的都是win10系统居多，但这对于一些习惯使用win7的用户是比较不友好的，因此我们就只能自己去将电脑系统装回Win- 很多用户在升级win10之后，都找不到了记事本。那么Win10(X)记事本在哪里?如何把记事本固定在开始屏幕?下面小编就为大家详细介绍一下，
- 电脑的复制粘贴功能是我们最常用到的操作之一，但是近期有部分Win10用户在使用这一功能时却出现了无法使用的情况，那么对于这一情况有没有什么方
- win10系统版本低如何升级？win10系统的每次版本更新，都会解决一些系统问题，让用
- 在每天忙碌完工作之后，我们就要进行电脑关机，虽然电脑关机很简单，但是很多用户想了解更多的关机方法，那么Win8.1电脑都有哪些关机方法呢？如
- 在我们日常使用win7系统电脑时，应该有很多用户遇到过需要批量更改文件属性的情况，那么Win7系统电脑怎么批量更改文件属性呢？下面小编就为大
- 很多朋友不清楚office安装错误1935怎么办？下面小编给大家带来office安装提示错误1935解决方法,需要的朋友可以参考下安装off
- Win10系统电脑怎么快速退回桌面？如何在Win10系统电脑上快速推出程序回到电脑桌面，系统部落就给大家分享三种常用方法。方法一：点击切换桌
- 微软以推出 windows 10 秋季创意者更新版1709 ，而在网上已经流出了1709正式版的安装包。那么在win10 1709中更新了些
- 在Word中如何输入国际字符？用键盘快捷键是一种很好的方法。对于同时按下两个或多个键的键盘快捷键，在“Microsoft Word 帮助”中
- 由搜狗官方推出的一款手机管理软件，搜狗手机助手让用户能够更加便捷的对手机进行管理。但是有的朋友不想使用搜狗手机助手，想要卸载，碰到搜狗手机助
- 在打印文档的时候，一般都是是打印单面，这样大家会觉得整洁干净。其实很多朋友们会想要将内容打印双面纸张，这样资料内容精简又解决纸张。怎样双面打
- Excel直观双饼图可以让我们更加直接看到数据的分类和结果，非常好用，那么，Excel双饼图怎么做？如何将Excel数据弄成直观双饼图呢？对
- 我们可以用一个自定义函数来提取单元格注释。方法如下：1.按Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，在右边的代码窗口中输
- 拍得利APP怎么修改密码？拍得利APP是一款答题就可以赚钱的软件，用户们可以在里面进行签到赚钱、任务赚钱等，那么在拍得利APP要怎么修改密码
- Win10专业版在进行电脑清理操作的时候，有时候我们要删除一些文件夹时，可能会提示一些包含一些dll文件正在运行导致无法删除，但是我们查看进
- Win11测试版已经推出将近三个月了，而正式版也将于今年的10月5日发布。而像Win10一样，此次微软也将推出的win11也有版本区别，那么
- 网线，计算机上网必备配件之一，但如此常见的存在，也因为无线网的缘故被我们慢慢忽略，或许网线在众多计算机硬件中毫不起眼，但它作用于铺设网络与多
- Windows手机版Build 10070谍照今天已经泄露在互联网上，截图中并没有透露太多新东西，除了开始画面,据WindowsMania.
