其次,将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填充方式,然后再透视,也可以得到数据。
文章TAG:处理 诊断 流量 搜索