VBA数据匹配查询

lethelc1234

新手求助VBA大神帮忙。想做一个学生的考试排名变动情况，分别给了2年的排名浮动。正数为前进了多少名，负数为后退了多少名，斜杠为转学生。
比如说我想找出来瞒住条件的所有学生，既分别在两个表里面的排名浮动都是大于0说明连续两年都是排名都是进步的，然后其他不满足条件的不打印出来。这个怎么用VBA实现呢？

魂断蓝桥

Sub 查询()
Dim cnn As Object
Dim Sql$
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select 学生姓名,排名变化,IIF(排名变化>0,1,0) AS T1 FROM [" & ThisWorkbook.Path & "\2016年排名.xlsx].[Sheet1$a1:b]  " _
    & " union all " _
    & "select 学生姓名,排名升降,IIF(排名升降>0,1,0)  FROM [" & ThisWorkbook.Path & "\2017年排名.xlsx].[Sheet1$a1:b]  "
Sql = "SELECT 学生姓名,排名变化 FROM (" & Sql & ") " _
        & " WHERE 学生姓名 in (select 学生姓名 FROM (" & Sql & ")  GROUP BY 学生姓名 having SUM(T1)>1)"
Cells.Clear
[A1:B1] = Array("姓名", "排名变化")
[a2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

lsdongjh

方法可用4楼的，SQL语句：

1. SELECT TabA.学生姓名, Count(TabA.排名变化) AS 进步年数
   
2. FROM (SELECT [2016].[学生姓名], [2016].[排名变化]
   
3. FROM 2016 WHERE  [排名变化]>0
   
4. UNION ALL SELECT [2017].[学生姓名], [2017].[排名升降]
   
5. FROM 2017  WHERE  [排名升降]>0 ) AS TabA
   
6. GROUP BY TabA.学生姓名
   
7. HAVING  Count(TabA.排名变化)>1;

复制代码