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

foreveryeah · 发表于 2018-7-27 12:47

本帖最后由 foreveryeah 于 2018-7-27 12:49 编辑

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

jiminyanyan · 发表于 2018-7-27 12:48

附件呢。。。。

foreveryeah · 发表于 2018-7-27 12:50

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

不好意思，已经上传

sirsunny · 发表于 2018-7-27 12:58

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

jiminyanyan · 发表于 2018-7-27 13:23

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
排序后，用字典处理一下吧。。。

mikezhan · 发表于 2018-7-27 13:41

提示: 作者被禁止或删除内容自动屏蔽

魂断蓝桥 · 发表于 2018-7-27 13:59

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 · 发表于 2018-7-27 19:18

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

没有按名字排序。。。

jiminyanyan · 发表于 2018-7-27 19:24

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

思路很巧妙。。。

LMY123 · 发表于 2018-8-2 17:34

本帖最后由 LMY123 于 2018-8-2 17:46 编辑

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列取首值

		自动登录	找回密码
密码			免费注册

[求助] 从数据表里筛选出数据，各位大神帮帮忙

评分

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-27 13:41 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报