因为从气象站获取的气象数据大都是矩阵形式的,列为站点,行为日期,但是在跑模型的时候需要把这种矩阵类型的数据转为一条一条的向量数据,可以在excel中利用一下VBA代码批量处理多个excel/csv文件:
Sub a()
Dim Path As String
Dim File As String
Dim WB As Workbook
Application.ScreenUpdating = False '冻结屏幕,打开各个文件及关闭时屏幕不会晃瞎你的狗眼
Path = "C:\Users\DELL\Desktop\test\" '把目标文件夹路径赋值给变量,这里的路径可以自己改
File = Dir(Path & "*.csv") '一次找寻路径中的excel文件,这里到底是.xlsx还是.xls,可以自己改
Do While File <> "" '当指定路径中由文件时进行循环
Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
Call b '调用你的另一端对每个excel文件进行具体操作的宏,也可以直接写到这个宏中
File = Dir '找寻下一个excel文件
Loop
Application.ScreenUpdating = True '解冻屏幕,让屏幕恢复正常刷新。和上面的那一句成对使用
End Sub
Sub b()
Dim i, z, k, m As Integer
k = 1482 'k为总行数-1
m = 364 'm为参与计算的站点数-1(减去第一个站点不需要参与计算)
For y = 2 To k + 1
Cells(y, 3) = Cells(1, 8)
Next
Cells(1, 8) = ActiveWorkbook.Name
For i = 1 To m
For z = 2 To k + 1
Cells(z + k * i, 3) = Cells(1, i + 8)
Cells(z + k * i, 8) = Cells(z, 9)
Cells(z + k * i, 1) = Cells(z, 1)
Cells(z + k * i, 2) = Cells(z, 2)
Cells(z + k * i, 4) = Cells(z, 4)
Cells(z + k * i, 5) = Cells(z, 5)
Cells(z + k * i, 6) = Cells(z, 6)
Cells(z + k * i, 7) = Cells(z, 7)
Next
Next
Columns(9).Resize(, m).Delete '删除处理前的矩阵数据
ActiveWorkbook.Save