提取部门最大工号

wxf841018

看不看是不是你要的效果

jiminyanyan

做个记号。。。。。

duquancai

excelvlookup 发表于 2018-6-30 20:38
前三后三，为了效对，从第10行开始写的

很好！！！

jiminyanyan

按杜老师的写法，写个后三。
Sub main()
    Dim conn As Object, sql$, s$
    Sheets("效果2").Select: Range("E3:G100").ClearContents
    Set conn = CreateObject("adodb.connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
    s = "select top 3 f3 from [效果2$A3:C] where f3 is not null group by f3 order by f3 desc"
    sql = "select b.f1,b.f2,a.f3 from (" & s & ") a left join [效果2$A3:C] b on a.f3=b.f3 order by a.f3 desc"
    Range("i3").CopyFromRecordset conn.Execute(sql)
End Sub

SCWYZJ

非常感谢各位老师的帮助，！虽然很多代码我理解不了，但能实现我要的效果，我高新！其中只有wxf841018老师的代码不太符合我的要求，还是谢谢你的热心相助！

SCWYZJ

excelvlookup老师，不知怎搞的，刚才还行的代码，突然不行了，“提取前三后三”的那段代码，总弹出没有设置变量的提示，怎么弄呀,麻烦你写个完整可以吗?配上点注解就更好了，谢谢！