利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温

气象数据是地理数据的重要组成部分，存储量虽然不大，但是处理过程非常繁琐，长时序数据更不用说。本文总结了一个气象数据的基本处理方法。

如下图所示，气象数据的排列格式是区站号→年→月→降水量→平均气温，时间范围为1983~2012年，每一年都有台站数300多个，下面按区站号+年的格式来求降水量和平均气温

1、求春季降水量和气温

春季一般认为是当年的3,4,5月份，下面我们借助Excel VBA+ADO.NET，编写宏代码来实现：

Sub admin()
    Dim conn, xRs, SQL, xFd, year
    year = InputBox("请输入一个数", "输入")
    If year = "" Then
        Exit Sub
    End If
    If year > 2012 Or year < 1983 Then
        MsgBox "你想不想混了？", vbOKOnly, "哼"
        Exit Sub
    End If
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLE