如何查重保留数据

Peny2020

请各位帮忙看看怎么可以达到下面的效果，谢谢了。

shiruiqiang

新手目前思路，就是c列做字典，从后往前step-1，if not dic.exist，在看x-1是否等于x，是的话union。关注一下各位老师的解决方法

grf1973

代码比较简单就不注释了。

limonet

代码审核中。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select * from [sheet1$A:G] where [date]&[资料编号] in(select last(date)&[资料编号] from [sheet1$A:G] group by 资料编号)"
    Range("K2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

512008404

参与一下！

Peny2020

limonet 发表于 2023-6-28 11:48
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")

公司电脑只可以用英文系统，所以这个中文表头无法显示了

Peny2020

grf1973 发表于 2023-6-28 11:42
代码比较简单就不注释了。

就是我想要的效果，谢谢了。

sdytsxd991122

参与一下

Peny2020

sdytsxd991122 发表于 2023-6-28 13:01
参与一下

结果是正确的，我还想请问一下，如果我想在原数据那里显示结果，最后那个=arr那要怎么写？