分年度合并比较

zjx_bl2

根据“年度”数据对应到“合并对照”表，加以比较。谢谢！学校的“院校代码”应该是查询的依据吧！谢谢！！

feiyang8878

如果代号不重复 一个VLOOKUP就解决了，你这是想怎么解决

zjx_bl2

feiyang8878 发表于 2019-10-17 15:28
如果代号不重复 一个VLOOKUP就解决了，你这是想怎么解决

我用了vloopup解决，但是在2018年会出错，感觉是编号的数字格式不统一，不知道怎么解决。还有如果出现 怎么样纠错，或者显示“没有”来替代这种错误！谢谢

zjx_bl2

feiyang8878 发表于 2019-10-17 15:28
如果代号不重复 一个VLOOKUP就解决了，你这是想怎么解决

错误出现在哪里呢？

feiyang8878

试试吧。。。。。。。。。。。。

xiangbaoan

Option Explicit
Sub test()
Dim Cn As Object, Sq$, sh As Worksheet, tb$, ta$, c%
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=no';Data Source=" & ThisWorkbook.FullName
Sheets("总表").Activate
[d1].Resize(Rows.Count, 40).ClearContents
ta = "[总表$b3:c" & Cells(Rows.Count, 2).End(xlUp).Row & "]a"
c = 4
For Each sh In Worksheets
    With sh
        If .Name <> ActiveSheet.Name Then
            tb = "SELECT * FROM [" & .Name & "$A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row & "]"
            Sq = "SELECT b.f3,b.f4 FROM " & ta & " LEFT JOIN (" & tb & ")b ON a.f1=b.f1"
            Cells(1, c) = .Name
            Cells(2, c).Resize(1, 2) = .[c1:d1].Value
            Cells(3, c).CopyFromRecordset Cn.Execute(Sq)
            c = c + 2
        End If
    End With
Next
Cn.Close
Set Cn = Nothing
End Sub

xiangbaoan

………………

opel-wong

xiangbaoan 发表于 2019-10-18 09:30
Option Explicit
Sub test()
Dim Cn As Object, Sq$, sh As Worksheet, tb$, ta$, c%

ADO用的挺溜！

xiangbaoan

opel-wong 发表于 2019-10-18 09:33
ADO用的挺溜！

学习中，找题练手……