通过VBA汇总工作表数据和跨工作簿复制数据

惠聲惠色

请教大神老师，怎么通过VBA实现以下：
1.如何将"整理"表里除"汇总"付表外的其他所有工作表的数据通过执行宏或者点击按钮后汇总在"汇总"表里？
请注意：1.1附表个数不固定，每个附表的列或者行数也不固定；1.2列内容不重复(如项目A均出现在Sheet1和Sheet2里，但汇总里只有一个项目A)
2.将"汇总"表里得到的结果通过执行宏或者点击按钮后自动复制到指定路径下(C:\Users\A\Desktop\汇总(更新).xlsx)名为"汇总(更新).xlsx"工作簿里的"hz"附表里
请注意：2.1不管"hz"附表里有没有相同的项目(A列)，只需复制一份进去不影响表中已有的数据，也不参与相同项目(A列各行)间的各费用合并；2.2复制过程中不需特意打开"汇总(更新).xlsx"工作簿，即如果当前没打开的情况下可以正常录入数据进去，而不会提示录入失败，如果当前已打开的情况下也可以正常录入数据进去。

ykcbf1100

要求还挺多。

惠聲惠色

ykcbf1100 发表于 2023-4-18 16:03
要求还挺多。

哈哈哈哈哈 不是要求多 可能也算吧 我主要是怕万一是因为我表达的不够清楚 让热心的老师白忙活 浪费时间精力 那就是罪过呀 这个网站挺好的 还可以共同学习

洋务德雷

把整理.xlsx里面的各个工作表内容的字段都添加完善后，用SQL很方便就在汇总（更新）.xlsx里面汇总到一起了。关键还是格式要一致。不要总数寄希望于vba，要多从自身表格找问题。格式不一致，vba代码虽然能做出来，但是代码量大，意义不大。

gwjkkkkk

参与 一下。。。

惠聲惠色

gwjkkkkk 发表于 2023-4-18 19:31
参与 一下。。。

谢谢老师，我试用发现，
1.好像是直接将各附表合并至"汇总(更新).xlsx"工作簿"hz"附表里，但"整理.xlsx"工作簿里的"汇总"附表里显示不对(ps老师可能想的是两步合一步更便捷，但是实际需求就是两步，第一步是实际当天需要使用的，要拿出来单独用，第二个相当于历史数据备份，不拿出来用)。
2.假如我给任一附表新增当前不存在的表头比如'收费10'，那这列的内容不能显示在"汇总(更新).xlsx"工作簿"hz"附表里(ps如1.1描述，以前没有的新增，已有的对应填入数据就可以)。老师的意思是要先确保将所有要录入数据的表头事先在"hz"附表里填好再执行宏吗？我发现我将'收费10'先填进去再执行，结果又是对的了。
老师能否帮忙改成这样：
* 咱们不关心各附表A列里是否存在相同内容，因为假设不用做"汇总"里的A列相同内容的数据合并(我最后自己将A列相同内容的数据合并，如将数值列的进行求和，将非数值列的内容以分号隔开合并在一起)，"汇总"表当前是完全空白的，只根据各个附表的列表头及对应列的数据(可能是文字、可能是数字等各种信息)合并汇总到"汇总"里，合并逻辑是将每个除"汇总"外的工作表依次复制进"汇总"里，列表头存在的对应复制数据，列表头不存在的将列表头和数据都复制进去，结果就是"汇总"里列表头不重复且数据是完整的其他所有附表的数据汇总。
* 再将"汇总"里数据复制至"hz"附表里，复制逻辑是两表列表头都有的，对应列表头将数据复制进去，如果"汇总"里有列表头，但"hz"里没有列表头，就根据"汇总"里新出现的列表头(如'收费10')新增到"hz"里，对应列数据一同复制进去。
* "整理.xlsx"工作簿里的"汇总"附表涉及的汇总数据 和 将汇总数据复制到"汇总(更新).xlsx"工作簿"hz"附表里，能否作为两个宏或者按钮分别实现，因为我可能还需要对汇总后的数据先编辑，再复制。
3.这点可能是我自己的问题 想重新补充提问 就是关于2.2的描述 如果"汇总(更新).xlsx"工作簿没有打开 则不需要为了更新数据进去而特意将其先打开 如果本身就是打开的 不用先要求关闭 就直接更新数据进去就可以 然后将"汇总(更新).xlsx"工作簿保存数据后关闭就行。
谢谢！