班牛多人同时编辑很方便,但是如何把班牛的N个工单的数据汇总后分析?
答:用一键合并代码和小工具,5分钟教你搞定!
代码及附件下载:https://pan.baidu.com/s/1hrLPMa4
一、相同表头合并
很简单,在此文件夹下面新建空的汇总表格
打开此表,点查看代码
把这些代码复制粘帖进按F5运行,稍等片刻N张表格数据就合并成功了。
代码如下:
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet If Num = 1 Then For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next Else For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next End If WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub
二、不同表头的表格合并
这个需要借助一些excel小工具实现了,网上有很多几十块钱,也有破解版的,比较无脑。
三、合并后的数据如何分析
很多运营需要单品售后分析、产品问题分析,但是不会操作,这里我写了个动图小教程。
有什么疑问QQ群322017200请教我们的客服,有空给大家录个视频哈。