统计每个月每个部门每天的统计人数

第一个工作簿：（每个月每天每间公司每个部门的用餐人数）

 

 

 

第二个工作簿：（每天每间公司每个部门的用餐人数的费用）

 

 

步骤：

（1）把《2020年6月各部门每日报餐人数统计》拆分成多份

参考网址：https://www.jianshu.com/p/28a84500188a

 

打开【2020年6月各部门每日报餐人数统计】文件，然后按ctrl+F11，输入代码，最后按【运行】

Sub sheet转独立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

 

 

（2）把步骤（1）中多个xlsx文件的后缀名修改为 csv

首先创建一个《新建文本文档.txt》，然后输入 ren *.xlsx *.csv ，保存并修改文件的后缀名为bat，双击bat文件，运行

 

 

 （3）把步骤（2）的csv文件合并成一份

新建【文本文档】，输入copy *.csv 合并文件.csv ，保存并修改文件的后缀名为bat，双击bat文件，运行，这会生成一份《合并文件.csv》

 打开【合并文件】后，发现全部都素乱码

 

 

 

（4）使用透视表

如果正常的话，合并后的效果

 

 

注意：做透视表的时候需要把重复的标题删除【日期 序号 公司 部门 人数】这一行删除