Excel中把指定内容筛选出,并复制到指定的工作簿中，并保存，VBA代码高手请进，有高分感谢

Question

各位老师：
我有一个Excel表格,名称为《A学校总工作簿》.我想根据它的 Sheet1 表格中 【H列】 的部分内容进行分别筛选，并将每次的筛选后的部分内容（是部分列,不是全部内容）分别复制到对应的工作簿中，并保存。（复制不是在同一工作簿，是另外的五个工作簿）
在复制时如果 这些需要更新的列中 如果原来有数据，将原有的数据刷新（使用新数据）。
H列会有五个名称,分别为 一年级、二年级、三年级、四年级、五年级。
一共有六个工作簿.名称分别为《A学校总工作簿》、《B一年级工作簿》、《C二年级工作簿》、《D三年级工作簿》、《E四年级工作簿》、《F五年级工作簿》。（筛选H列后【一年级】的内容复制到《B一年级工作簿》，其他类似）这六个工作簿存在D盘同一文件夹中.
所有工作簿的内容都从第三行开始〈第一行和第二行为表头〉。
我只要将筛选出的A列、C列、D列、F列、H列、I列、K列 的内容复制新的工作簿中，其它 列的内容 不要（不是筛选后全部内容）。在复制过程中不能影响原来行距、列距，只复制内容，其他的表格设置都不能变。不影响其他单元格内的数据。
在复制到其他工作簿的时候，这些工作簿可能是打开的，也可能是关闭的，如果是打开的请先保存数据，在更新数据。
如果需要附件，请到http://club.excelhome.net/forum.php?mod=viewthread&tid=1160756&extra=下载附件需要账号ljd4895密码是mf4895

问题解决后还有高分感谢哦

Answer 1

有一个重要问题要弄清楚，当筛选出来的数据传到另外工作簿时，如果已有数据就更新，判别是否有数据的关键字段是“学生编码”还是“姓名”。从你说的意思看，不复制姓名列，关键字应该是姓名，但姓名有可能重名，如果遇到相同姓名该怎么办？编码不会重复，为关键字才合理。追问

我的学生编码是唯一的，其他的都可能重复。还有这是模拟工作簿

追答

按你的要求完成了

使用方法，点击 H2 单元格，出现下拉箭头，从中选择“年级”显示全部，选择各个年级则进行筛选并将数据更新到各年级工作簿。

有问题再追问