Sub test()
'1)复制到空白工作表
Sheets("Sheet3").Activate
Range("a1").CurrentRegion.Sort key1:=[a1], order1:=xlAscending, key2:=[e1], order2:=xlDescending, Header:=xlYes
Sheets("Sheet3").Copy Sheets(Sheets.Count)
ActiveSheet.Move After:=Sheets(Sheets.Count) '可选
'2)去重复
Range("a:a").AdvancedFilter Action:=xlFilterInPlace, Unique:=True '方法1:高级筛选(只是隐藏了重复项)
' Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes '方法2:删除重复项(03不可用)
End Sub
保留最后一条记录2.rar
(13.6 KB, 下载次数: 9)