其次，将CSV格式转化为XLS格式，（本人是用07的EXCEL，但是发现直接改后缀CSV为xlsx 不可行），而直接改为03的XLS，数据还在。
录入以下宏：
Sub MergeWorkbooks()
Dim FileSet
Dim i As Integer
On Error GoTo 0
Application.ScreenUpdating = False
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx", _
MultiSelect:=True, Title:="选择要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
End If
For Each Filename In FileSet
Workbooks.Open Filename
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.count)
Next
ExitSub:
Application.ScreenUpdating = True
End Sub按F5运行。会弹出，选择文件，于是选择所有已经转换格式的XLS文件，
则可以得到上表，直接数据透视表处理吧，大功告成。
如果要看单个关键词ABCDE每天的搜索趋势的话，麻烦一点，不需要去除表头，然后通过在首列插入一列，用来标记日期，用EXCEL填充方式，然后再透视，也可以得到数据。
