先合并汇总11要合并文件复制新建文件夹该文件夹新建execl,仅打新建Excel按Alt+F11点菜单插入模块粘贴代码：Sub 合并前目录所工作簿全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName ""If MyName AWbName ThenSet Wb = Workbooks.Open(MyPath & "" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并" & Num & "工作薄全部工作表：" & Chr(13) & WbN, vbInformation, "提示"End Sub

1.打开数据表，选中要统计的数据，点开“插入”，点击“数据透视表”，如下图。

2.然后会出现一个页面，点击“新工作表”，然后点击“确定”，如下图。

3.在新表中，勾选右侧的字段名称“任职单位”，然后在左侧会有不重复的名称出现，如图。

4.将“任职单位”拖拽到“数值”框中来计数，来统计每个名称在原表中各自出现了多少次，如下图。

5..这时，会发现表格中自动给出了每个名称的出现次数，如图。

6.如果想要按从多到少次序排列，则可复制选中这些数据，如图。

7.然后粘贴到一张新表中，但是，要注意，一定要选择“粘贴值”的方式，以清除格式，如图。

8.在“数据”选项卡下，点击“排序”，如图。

9.会出现一个新的界面，在新界面中选择按照“计数项：任职单位”排序，选择“降序”排序，然后点击确定，如图。

10.会发现，结果全部按照出现次数从高到低排序了，任务就完成了。

我一般是把需要数据的工作表放怎同一个工作薄里面（就是在同一个EXECL里面），这样数据不会那么容易失效，相对稳定。然后再对相关数据进行统计。比如求和：工作表1中的A3+工作表2中的A6+....,可直接在结果输出所在单元格输入“=”后，选择工作表1中的A3，然后输入“+”，再选择工作表2中的A6，输入“+”，以此类推。。。做统计图和其他公式也是这样哦（一般都会有区域框弹出来的，只要把所需的单元格按格式选进去就行啦），总之点箭头所指的地方，选择你所需要的数据，就能把统计做出来了