VBA运行将多个excel的矩阵类型数据转为向量数据

因为从气象站获取的气象数据大都是矩阵形式的，列为站点，行为日期，但是在跑模型的时候需要把这种矩阵类型的数据转为一条一条的向量数据，可以在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.