时间:2021-05-22
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
录一个宏用上面代码替换,再运行这个宏即可
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
1、例子:每隔100行插入一条记录,并且此条记录的第一列包含行号,其他列与第一行相同#!/bin/shvar="00001"#变量cata.txt|awk'NR
最近在写SQL过程中发现需要对一张表结构作调整(此处是SQLServer),其中需要删除多列,由于之前都是一条SQL语句删除一列,于是猜想是否可以一条语句同时删
死锁的原理当对于数据库某个表的某一列做更新或删除等操作,执行完毕后该条语句不提交,另一条对于这一列数据做更新操作的语句在执行的时候就会处于等待状态,此时的现象是
按下面做很简单一、一列查重复:假设你的一列为A列在B1输入公式=countif(a:a,a1)下拉如果大于1就证明重复二、两列查重复有两种方法:1.查重复数据比
excel选择不相邻的两列需要先选中一列,然后按住Ctrl键后选择另一列即可。 MicrosoftExcel是Microsoft为使用Windows和Appl