excel按一列刪除重復行，并按另一列時間保留最近的一條記錄

2019-12-13 11:03:35

字體：大中小

來源：轉載

供稿：網友

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

錄一個宏用上面代碼替換，再運行這個宏即可

上一篇：在excel表格中如何快速查找到相同數據項?

下一篇：在EXCEL表格中怎么使用IMSQRT函數呢?