如何删除同一核销单号前面已出现过多次的记录,只保留最后更新(ID号码最大)的记录

TSGRH

如何删除同一核销单号前面已出现过多次的记录,只保留最后更新(ID号码最大)的记录

ysdms

delete from sheet1
where 核销单号 in (select 核销单号 from sheet1 group by 核销单号 having count(*)>1)
and ID not in (select max(ID) from sheet1 group by 核销单号 having count(*)>1)

ysdms

我在查询分析器里面测试通过，但是楼主需要先把数据存储到Access或者SQL server的表里面
在excel文件中貌似不能使用这种操作查询

liuyan819

Sub GetData()
   Dim dic As Object, arr
    Set dic = CreateObject("scripting.dictionary")
      For i = 1 To [a65536].End(3).Row
          Set dic(Cells(i, 2) & "") = Range(Cells(i, 1), Cells(i, 7))
          arr = dic.Keys
      Next
      For i = 1 To dic.Count
         dic(arr(i - 1)).Copy Cells(i, 11)
      Next
      
End Sub

[ 本帖最后由 liuyan819 于 2010-10-28 19:27 编辑 ]

TSGRH

多谢大家。解决了

wx-x

原帖由 TSGRH 于 2010-10-28 20:16 发表
多谢大家。解决了

可以发上来分享一下吗？谢谢。