从数据表里筛选出数据，各位大神帮帮忙

foreveryeah

选出每个人具有哪些工种，同工种只需要显示出最高级别的。详见附件，拜托各位大神。

jiminyanyan

附件呢。。。。

foreveryeah

jiminyanyan 发表于 2018-7-27 12:48
附件呢。。。。

不好意思，已经上传

sirsunny

可以尝试使用双重字典（Dictionary）实现。

jiminyanyan

foreveryeah 发表于 2018-7-27 12:50
不好意思，已经上传

Sub 查询()
    Dim cnn As Object
    Dim Sql As String
    Set cnn = CreateObject("ADODB.CONNECTION")
    cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
    Sql = "select * from [Sheet1$a1:c]  order by 姓名,工种,instr('高级,中级,低级',级别) "
    [l2].CopyFromRecordset cnn.Execute(Sql)
    cnn.Close: Set cnn = Nothing
End Sub
排序后，用字典处理一下吧。。。

魂断蓝桥

Sub 查询()
    Dim cnn As Object
    Dim Sql As String
    Set cnn = CreateObject("ADODB.CONNECTION")
    cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
    Sql = "SELECT 姓名,工种, MIN(instr('高级中级低级',级别)) AS T  from [Sheet1$a1:c]  GROUP BY 姓名,工种"
    Sql = "select 姓名,工种,SWITCH(T=1,'高级',T=3,'中级',T=5,'低级') FROM (" & Sql & ")"
    [e:h] = ""
    [e2].CopyFromRecordset cnn.Execute(Sql)
    cnn.Close: Set cnn = Nothing
End Sub

jiminyanyan

mikezhan 发表于 2018-7-27 13:41
测试 无误。只是没有按姓名排序。

没有按名字排序。。。

jiminyanyan

魂断蓝桥 发表于 2018-7-27 13:59
Sub 查询()
    Dim cnn As Object
    Dim Sql As String

思路很巧妙。。。

LMY123

    Sql = "SELECT 姓名,工种, MIN(instr('高级中级低级',级别)) AS T  from [Sheet1$a1:c]  GROUP BY 姓名,工种"
    Sql = "select 姓名,工种,SWITCH(T=1,'高级',T=3,'中级',T=5,'低级') FROM (" & Sql & ")"
AB列去重,C列取首值