EXCEL中如何快速将总表数据拆分到不同分表保存并实现新增记录？

Question

‍请问：有一个EXCEL模板，格式固定，数据会有变化，如何实现，将模板的数据自动填充到不同的表中，并修改模板数据时，原来的数据自动保存，并新增新的数据。如表1为模板，有日期、客户名称，金额三列数据，当第一次转入2022年1月时，各客户有对应的金额，则要实现将不同的客户金额对应到单独的表中，并进行保存，当模板数据变动为2022年2月时，各客户的数据实现新增记录

Answer 1

用公式可以实现，即在不同的工作表中用IF取得不同的客户名提取数据。但与公式的方法相比，数据透视表的方法或Power Qurey会更方便快捷。
一、数据透视表的方法：插入数据透视表，选择在新的工作表中插入。把客户名拖筛选字段区域，其他需要的数据拖到透视表的中行、列、或值汇总区域即可。有新的数据时只要刷新一下即可。复制工作表，在新的工作表中，只需要筛选其他客户，就得到该客户的数据。
二、Power Qurey的方法：将数据导入到Power Qurey中，按客户数复制若干导入的表格，每个复制的表格中进行不同的筛选，把不同的客户筛选出来。最好把复制后的表格重命名为不同的客户名，筛选时与之对应。然后把筛选后的各表格分别上载到不同的工作表中。有数据更新时，数据菜单中选择“全部刷新”，所有的工作表将得到更新。

Answer 2

用公式可以实现，即在不同的工作表中用IF取得不同的客户名提取数据。但与公式的方法相比，数据透视表的方法或Power Qurey会更方便快捷。
一、数据透视表的方法：插入数据透视表，选择在新的工作表中插入。把客户名拖筛选字段区域，其他需要的数据拖到透视表的中行、列、或值汇总区域即可。有新的数据时只要刷新一下即可。复制工作表，在新的工作表中，只需要筛选其他客户，就得到该客户的数据。
二、Power Qurey的方法：将数据导入到Power Qurey中，按客户数复制若干导入的表格，每个复制的表格中进行不同的筛选，把不同的客户筛选出来。最好把复制后的表格重命名为不同的客户名，筛选时与之对应。然后把筛选后的各表格分别上载到不同的工作表中。有数据更新时，数据菜单中选择“全部刷新”，所有的工作表将得到更新

Answer 3

在工作表标签点右键，查看代码，复制粘贴下面的代码，将模板另存为启用宏的工作簿。假设日期单元格在b1（可在代码第二行修改），只要改动b1，模板文件就会自动另存为b1同名文件，如果不想放在模板同一文件夹，修改代码第4行

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Target.Text & ".xlsx"
Application.DisplayAlerts = True
End If
End Sub追问

首先非常感谢你的解答。如上图示，图一、图二是同一模板，分两次录入数据，然后得到图三和图四的效果，如果把数据模板（图一或图二）的数据重新更新后，在图三和图四新增记录，原来的记录仍需保留，烦请赐教，不胜感激





Answer 4

修改模板数据——这不造假么！

Answer 5

需要编写代码---VBA追问

请问如何编写代码，是否有代码可以复制

追答

代码要根据实际表写，一般不具备通用性