excel筛选问题

西瓜甜不甜

有N个excel表格文件，根据站点号筛选出数据，每个表格中需要筛选的站点号相同，
有没有简便的方法，不用每打开一个表格就在筛选下面点击N多次呀？
麻烦大家啦~~

下是一种

Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim conn As Object, SQL$, Myfile$, Mypath$
Dim Arr, n&, wbname$
Myfile = ThisWorkbook.FullName
Mypath = ThisWorkbook.Path & "\"
SQL = "Select Distinct f1 from [Sheet1$A1:A] Where f1 is not null"
Set conn = CreateObject("ADODB.Connection")
If Application.Version = "11.0" Then
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties= 'Excel 12.0; hdr=no'; Data Source=" & Myfile
Else
    conn.Open "Provider=Microsoft.JET.OLEDB.4.0; Extended Properties= 'Excel 8.0; hdr=no'; Data Source=" & Myfile
End If
Sheets(2).[a1].CopyFromRecordset conn.Execute(SQL)
Arr = Sheets(2).[a1].CurrentRegion
Sheets.Add after:=Sheets(3), Count:=UBound(Arr)
For n = UBound(Arr) To 1 Step -1
    wbname = Arr(n, 1)
    SQL = "Select f1,f7,f12,f14 from [Sheet1$A2:N] Where f1=" & Arr(n, 1)
    Sheets(n + 3).[A1:D1] = Array("站号", "平均气温", "最低气温", "最高气温")
    Sheets(n + 3).[a2].CopyFromRecordset conn.Execute(SQL)
    Sheets(Sheets.Count).Move
    ActiveWorkbook.SaveAs Filename:=Mypath & wbname & ".xls"
    ActiveWorkbook.Close
Next
conn.Close
Set conn = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

下是一种

下是一种 发表于 2015-2-6 20:47
Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

是很多站点集中在一个xls表格里面，提取特定某些列（气象要素）数据用的。

西瓜甜不甜

下是一种 发表于 2015-2-6 20:49
是很多站点集中在一个xls表格里面，提取特定某些列（气象要素）数据用的。

非常感谢！！

wzahling

有个问题请教下大家：
大四了毕业论文是研究我国大陆降水的时空变异规律。导师给了693个站点从1960-2016年的逐日降水数据，我想要分析的是1987-2016年的降水规律，尽管只是用30年的数据，但是不知道该用什么程序区把这些资料合在一起，请教下大家有没有合适的程序推荐？
我想把这么多个站点的数据先做个月平均，再统计变为季节平均，得出该地的降水季节性。在划分为大区域的 ，例如华南华北华中等，再进行全国的降水规律分析。不知道这个思路对不对？
在此向各位请教，希望大家能帮帮忙，不胜感激！