vba读取每位员工的最高学历

likaiyihou

凑个热闹。。。。。。。

yynrzwh

最高学历.rar (13.78 KB, 下载次数: 9)

2023-12-7 16:31 上传

点击文件名下载附件

cyh3230

看大家不少解决方案都是 VBA+SQL

这里直接用 SQL 解决吧
利用两个 Switch 转换 即可

1. select 姓名,
   
2. switch(min(TP) = 1, "研究生", min(TP) = 2, "本科", min(TP) = 3, "专科") as 学历
   
3. from
   
4.     (
   
5.         select 姓名, 学历,
   
6.         switch(学历 = "研究生", 1, 学历 = "本科", 2, 学历 = "专科", 3) as TP from[
   
7.             Sheet2$A: B]
   
8.     )
   
9. group by 姓名

复制代码

飞天篮球猪

供参考...

sunya_0529

grf1973

limonet 发表于 2023-12-7 13:04
要放在其它表中，改倒数第二行，如 sheet2.Range("a2").CopyFromRecordset Cn.Execute(StrSQL)
Sub limone ...

看着没问题，运行就有问题。第一个sql排序正确的，第二个sql用了first居然会出错。

grf1973

进一步研究发现，用first是提取的原表格相同姓名的第一个数据，和是否进行过排序无关。。。。真是奇怪。

grf1973

把学历转换成数字，再用max取值，再转化成学历。

grf1973

参与一下。

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     sort_array = Array("研究生", "本科", "专科")
   
5.     For i = 0 To UBound(sort_array)
   
6.         d(sort_array(i)) = i
   
7.     Next
   
8.     arr = [a1].CurrentRegion
   
9.     For i = 2 To UBound(arr)
   
10.         If Not d1.exists(arr(i, 1)) Then
    
11.             d1(arr(i, 1)) = d(arr(i, 2))
    
12.         Else
    
13.             d1(arr(i, 1)) = Application.Min(d1(arr(i, 1)), d(arr(i, 2)))
    
14.         End If
    
15.     Next
    
16.     k = 1
    
17.     For Each x In d1.keys
    
18.         k = k + 1
    
19.         arr(k, 1) = x: arr(k, 2) = sort_array(d1(x))
    
20.     Next
    
21.     Range("D1").Resize(k, 2) = arr
    
22. End Sub
    

复制代码

wodewan